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► Urn DIR que mostra tudo 

► CADPRO ■ 2*^ parte 

► Manipule arquivos ASCII 
em C 



D^j'J-r^iCJ D^ C^|J;\;jJ03 




OMSX 
DO FUTURO 



A Diferen^a 
esta no produto 



KIT PARA DRIVE DDX 

composto de gabinete meta- 
lico, f onte de alimentagao, interfa- 
ce DDX, cabo para dois "drives', ma- 
nual e sistema operacional (DOS). 

T 





DDX MODEM PARA MICROS MSX 

Transmits e recebe em 1200/75, 300/300, 
1200/1200, BELL 6 CCITT. Discagem automatica 
pelo teclado do micromputador Monitoracao 
de iinha, rediscagem automatica no caso de 
ocupado, atendimento autom^tico. Cont6m 
software embutido para terminal generico, vi- 
deo texto (MSX 1 e MSX 2). Homologado pela 

TELESR 



CONHECA OS 
MAIS RECENTES 
LANCAMENTOS 



KIT DDX PLUS 1.1 

Este Kit faz com que o usuSrio es- 
colha entre o mode "PIUS" e IT, fa- 
zendo seu micro f icar compativel 
com todos OS jogos e utifit^rios do 
mercado. No modo Plus, o micro 
possui mais &4K de Ram, totalizan- 
do 128K. 



KIT DDX MSX 2.0 

Kit MSX 2 faz com que o micro, 
entre outras vantagens, tenha 
maior resolupao, maiorvelocidade 
de.manipulacao de gr^ficos, um 
reldgio real com bateria para 
quando o micro estiver desligado, 
SOcoIunasprogramSveis, l28Kde 
Ram de video, 256 cores simulta- 
neas, etc 




EXPANSOR DE SLOTS DDX 

Este aparelho expande cada "SLOT' do micro 
MSX em 4 "SLOTS" independentes, possibili- 

tando ao usuario utilizar ate 8 "SLCnS" simul- 
taneamente, ao inv6s de 2 originalmente 



MEGA RAM DISK 

Esta placa 6 uma expansao de memdria com 

sistema operacional DDX DOS residents e 6 

apresentada em 3 modelos diferentes: DDX 

256, 512 e 768 Kbytes. Portanto, ela funciona 

como se fosse uma drive normal para o 

computador 

Para quem gosta somente de jogos, e reco- 

mendavel aMega Came DDX 256 Kbytes sem 

DDX DOS residente 




^f^//ff/^y Digital Design Eletronlca Ltaa. 



(Oil) 575-9037 • 572-7419 ^ FAX (Oil) 575-9037 
SAO PAULO -SP 



^ Agora na teve, 
todas as cores 
do PC 




• PLACA RF - VfPEO COMPOSTO (PAL/M) 

Placa para computadores PC XT/ AT que transforma o sinal de 
video RGB de uma placa CGA em video composto colorido 

e em sinal de RF [sai'da para televisaoj. ambos PAL/M. 
O som do PC [auto falante) e tambem adicionado ao sinal 

de RF, permitindo ao televisor reproduzir o som do computador. 
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UvroSoft at 



LiVrosoft 



O livro que voc§ queria. Com o 
software que voce nao podia ter. 



H- 



TlTULOS JA DISPONIVEIS 



CLBC 

BIBLIOTECA COMPUGRAFICA PARA CLIPPER 




Biblioteca de fungoes graficas que am- 
plia OS limites da linguagem Clipper. 
Graficos comerciais, bancos de dados 
com imagens, vinhetas de abertura e 
aplicativos graficos sao alguns exem- 
plos do que e possivel ser feito com o 
Clipper e a CLBC. 

CLBC 6 um produto da SoftCAD Inform^tica. 

DESCRITOR 

DOCUMENTADOR DE SISTEMAS 



Poderoso documentador automatico 

de sistemas escritos em linguagem 

Clipper, dBase ou Dialog. A partir do 

nome do programa principal sao docu- 

mentados todos os elementos do 

sistema, seus conteudos e inter-rela- 

cionamentos. 

Descritor 6 um produto da XS Inform^tica. 
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SIM! Desejo adquirir o UvroSoft, Para isso, estou enviando em anexo Cheque 
Nominal a LTC EDITORA, no valor correspondente ao total do pedido. 



( ) LivroSoft CLBC — CR$ 46,800,00 
Total do pedido: GR$ 



( } LivroSoft DESCRITOR — CR$ 34.800,00 
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Endere^o: _ 
CEP:, „ 



.Insc. Est.:. 
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Estado;_ 



Data: 
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CAPA, CLAUDIO COSTA 



Ao leitor 

Estamos nos aproximando do final do ano e nada de exccpcional acontecGu no 
nnercado de microinformatica. Nenhum grandc fabricante se instalou em nossas 
praias, nenhuma grande softhouse enlrou pra valer em nosso mercado, nenhuma 
novidade significativa aportou nas prateleiras das lojas, nos grandes centres urba- 
nos (leia Rio e Sao Paulo). 

Enfim, tudo continua como sempre foi (inclusive a inflagao crescente) e a so- 
berania nacional esta cada vez mais resguardada dos "abutres" estrangeiros. En- 
quanto isso, nos subterraneos do mercado informal, ja se pode comprar qualquer 
novidade high tech recem langada nos Estados Unidos. Tudo continua como sem- 
pre foi... 

A partir desta edigao entramos no ano XI da MICRO SISTEMAS e, como nao 
poderia deixar de ser, estamos preparando uma serie de novidades para os leitores. 
Elas comegarao a ser mostradas na proxima edigao. 

Encerramos nesta edigao a publlcagao de dois grandes programas: o CADPRO, 
do Daniel Jerozolinski e o Controle de Locadora, do Ricardo Gomide. 

Como destaque, temos tambem uma Agenda no micro, escrita pelo Vicente Mo- 
redo e uma materia sobre disquetes, de autoria de Carlos Gongalves. Imperdivel 
tambem e a materia de capa desta edigao, escrita por Evandro Ruiz e Aparecido 
da Costa, que trata do reconhecimento de padroes graficos. 

Renato Degiovani 

Neste NOmero 



ESPECIAL 

NAO USE A MEMORIA, USE O MICRO 

Vicente Jose Moredo 22 

RECONHECIMENTO DE PADROES 

Evandro Seron Ruiz e Aparecido da Costa ... 12 



DISQUETES: FUNDAMENTOS 

Carlos Gont;alves 18 

UTH iTARtOS- 

UM DIR MUITO ESPECIAL 

Marcelo Flores Vieira 36 

ARQUIVOS ASCII: 

E FACIL LIDAR COM ELES 

Marcia Marini e Ciaudio Oliveira 38 



APLICATIVOS: 

CONTROLE DE LOCADORA 

Ricardo Borges Gomide 42 

CADPRO: UM SISTEMA SOB MEDIDA 

Daniel Jerozolimski 48 

PROGRAMA: 

ORGAO NO MICRO 

Emerson Tedesco Faria de Morais 40 



SECOES: 

BYTES 6 

CARTAS 54 

LIVROS 58 



MICRO SISTEMAS 5 



Lanpamentos Sisco tern 
tecnologia RISC 



A Sisco Sistemas e Computadores langa 
no mercado nacional novos equipamentos 
com tecnologia RISC e toda uma linha de 
produtos para redes locals Sao supernnicros 
386 e 486; uma estagao de trabalho 386 
diskless; supermicros e superminis com ar- 
quitetura RISC: um exclusivo superservidor 
para redes que permite processamento si- 




SUPERMICRO SISCO SIX/486 SX 



multaneo e integrado de slstema operacio- 
nal UNIX e de software de rede Novell; alem 
de equipamentospara os segmentos de au- 
tomagao comercial e industrial. 

Os novos produtos Sisco demonstram 
um direcionamento da empresa para a filo- 
sofia de Sistemas Abertos, ou Open Sys- 
tems, onde programas e aplicativos desen- 
volvidos em diferentes plataformas de 
hardware podem ser usados com total com- 
patibilidade, economia de escala e conec- 
tividade entre sistemas heterogeneos, e 
ainda, garantia de compatibilidade binaria de 
software. 



Infosul lanpQ micro de 
32 bits 



A Infosul Informatica, febricante de mi- 
crocomputadores do Sul do Pais, num 
acordo tecnologico com a AMI - American 
Megatrands Inc. (Iider mundial na area de 
Bios), apresenta ao mercado nacional a nova 
linha Quality, com micros de 32 bits. 

A empresa inicialmente comercializa 
cinco modelos: um 386 SX, com 25 Mhz 
de velocidade, memoria RAM de 32 Mbytes 
e memoria cache de 32 Kb; um 386 DX, 
com 33 ou 40 Mhz. memoria RAM de 64 
Mbytes e cache de 64 a 256 Kb; um 486 
SX, com 20 Mhz de velocidade, 32 Mbytes 
de RAM; um 486 DX, com 33 Mhz de ve- 
locidade, 96 Mbytes de RAM e 64 a 256 Kb 
de cache; alem da maquina de barramento 
Eisa - um 486 DX, com velocidade de 33 
Mhz, memoria RAM de 96 Mbytes e cache 
de 128 Kb. 



A Infosul importa somente as placas- 
-mae desmontadas, que Integra aos produ- 
tos nacionais, com um Tndice inicial de na- 
cionalizagao de 70% {custo final do 
produto). Sao pianos da empresa, em breve, 
fabricar tambem as placas no Pais. 




LINHA QUALITY DA INFOSUL 



Rio de Janeiro tern 
novo livroria 



O carioca ganha mais uma opgao na pro- 
cura dos melhores pregos em livros de In- 
formatica. Com a abertura da Livraria Cien- 
cia Nova Ltda., o interessado pelo setor 
conta com um acervo das melhores edito- 
ras de computagao do Pais, alem de uma 
linha de suprimentos de diversos febrican- 
tes. 
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• DRIVES DE 5 1/4 E 3 1/2 

• MODEM DECOMUNICAQAO 

• LIVROS 

• DISCOS S 1/4 E 3 1/2 



IMPRESSORAS 
EXPANSORDE SLOTS 
BOBINAS PARA FAX 
MESAS PARA CPD 



MONITORES 

TRANSFORMAQAO PARA 2.0 
FORMULARIOS CONTlNUOS 80 COL. 
ESTABILIZADORES DE VOLTAGEM 



Solicite nosso catdlogo de programas Cr* 500,00 (este valor ser^ abatido no seu pedido). 

Atendemos todos os estados em 24 horas via SEDEX. 

Para (azer seu pedido envie cheque nominal com carta detalhada para MSX-SOFT. 




SOf^t 



TEL: (021) 284-6791 
FAX: (021) 264-0563 



Matrir RJ Av. 28 de Setembro. 226 Loja 110 VILA 
SHOPPING RJ CEP 20551 Tel: 284-6791 e 264-1549 
Filial; Curitiba ■ Av. 7 de Setembro, 3.146 Loja 20 
SHOPPING SETE - CURITIBA ■ PR CEP 80010 - Tei: 2320399 
Filial: SP Caixa Postal 20.217 - CEP 04034 - Tel.: 579-8050 



BYTES 



Filcril lanpa linha Topis 
no Brasil 



A Filcril, empresa distribuidora de pro- 
dutos de informatica e microeietronica, ja 
fabrica no Brasil a linha Topis de microcom- 
putadores PC. 

Anteriormente formada pelos modelos 
XT e AT 286, a linha Topis traz tambem as 
versoes 386/SX/DX e 486/DX. Sao agora co- 
mercializados no Pais os seguintes mode- 
los: HQ-1288 (PC XT com processador NEC 
V-20; 12 MHz de velocidade; 1 MB de me- 
moria RAM e um drive 5 1/4', com 360 KB 
de capacidade); HQ-286 (PC AT com pro- 
cessador Intel 80286; 12,5 a 16 MHz; 1 MB 
de RAM, expansivel a 8 MB e um drive 5 1/4' 
com 360 KB, na versao standard) alem das 
novas vereoes HQ-386/SX (16 a 20 MHz de 
clock selecionavel; 2 MB de RAM. expan- 
sivel a 8 MB; dois drives 5 1/4; com 360 
KB/1,2 MB de capacidade, alem de um Win- 
chester de 40 MB MFM ou IDE); HQ-386/DX 
{33 MHz; 2 MB de RAM, expansivel a 32 MB; 
memoria cache de 64 KB, expansivel a 256 
KB; dois drives de 5 1/4; com 360 KB/1.2 
MB e um v^inchester de 40 MB MFM ou 




NOVA LINHA TROPIS 

IDE); HQ-486/DX (25 MHz de velocidade; 4 
MB de RAM. ate 32 MB; 64 KB de cache, 
ate 256 KB, alem de 8 KB integrados ao pro- 
cessador principal; dois drives de 5 1/4; com 
360 KB/1,2 MB e um Winchester de 80 MB 
MFM ou IDE). Todos com floppies opcionais 
de 3 1/2' de 1.44 MB. 



Os modelos vem equipados com moni- 
tores CGA Mono, 12 polegadas. com opcio- 
nal de VGA 14 polegadas colorido ou 
CGA/Hercules, com tela plana de 12 pole- 
gadas B/W. Podem ser montados em gabi- 
netes baby ou desk, com opgao em ABS im- 
portado, tipo torre baby, mini, midi ou super 




A PBOTCpAO 
iDEFINITIVA CONTRA\ 



COPIAS PIRATAS 



I 



IMUNE A «UALCtUER 

COPIADOR OU PLACA 

DUPLICADORA. 

FUNCIONA EM 

eUALfiUEB MICRO 

COMPUTADOR DE 16 

BITS. 



H&J SOFTWARE LTDA 



RUA MAYRINK VEIGA, 32 - SU - RIO DE JANEIRO - RJ - TEL: (021) 233-2124 



Nova linha de moveis 
para informatica 

A Hobjeto Industria e Comercio de Mo- 
veis Ltda ja comercializa sua nova linha, es- 
pecialmente desenvolvida para o setor de 
informatica. Com design moderno, os mo- 
veis pretendem aliar beleza, resistencia e 
praticidade. 

A linha apresenta caracteristicas espe- 
cificas para adaptagao de computador e im- 
pressora, alem de acessohos para tomadas 
de energia e telefone, passagem para cabo 
e o suporte aramado para impressora e 
apoio de papel. Sao mesas, gaveteiros e ou- 
tros complementos, fabricados em aglome- 
rado com revestimento melaminico, dispo- 
niveis nas cores ovo e cinza, alem do 
acabamento das bordas, que e feito em 
freijo preto. 

A empresa dispoe de atendimento gra- 
tuito ao cliente. com crlagao de plantas es- 
pecificas a cada ambiente. 




DATACRYPTOR 64. DA RHEDE TECNOLOGIA 

Datacryptor 64 garante 
seguranpa dos dados 

A Rhede Tecnologia, fabricante de pro- 
dutos para a area de comunicagao de da- 
dos, lanpa o Datacryptor 64 - um criptografo 
utilizado para cifragem de informagoes. 

Equipamento utilizado para garantir a se- 
guranga dos dados, o Datacryptor trabaiha 
acoplado a um modem. Evita a espionagem, 




MOVEIS PARA INFORMATICA DA HOBJETO 



pois so permite o acesso ao banco para 
quern possui outro aparelho que esteja pro- 
gramado com a chave de acesso. 

A combinagao da chave de acesso pode 
ser modificada diariament& E mais um pro- 
duto que investe na seguranga dos dados, 
preocupagao constante dos usuarios de 
bancos. 



Gerente Contabil 
■sistema para PC 

A Nasajon desenvolveu o Gerente Con- 
tabil, sistema de contabilidade para micros 
de 16 bits, criado para executar as fungoes 
normals do cotidiano empresarial. 

Gerente Contabil realiza a escrituragao 
do diario, razao, balancetes, balango e de- 
monstragoes de resultados, bem como 
fungoes gerenciais do tlpo: analises de re- 
sultados atraves de graflcos; relatorios e 
controle financeiro atraves da conversao au- 
tomatlca para outras moedas ou indices. 

O sistema conta ainda com: agenda per- 
sonalizada para cada operador, calculadora, 
langamentos em lote ou instantaneos e es- 
trutura de suporte ao usuario. 

AMI PRO jdlem versao 
em portugues 

A SPA ■ Sistemas, Pianejamento e Ana- 
lise langa a versao em portugues do AMI 
PRO, processador de texto para ambiente 
Windows, da Lotus. 

Utilizado por jornalistas, escritores, se- 
cretarias, etc., o software combina caracte- 
risticas de processamento de textos com 
desktop publishing e e concebido em Wl- 
SIWIG, onde o usuario ve na tela o que sera 
impresso [what you see is what you get). 

programa opera atraves de menus com 
interfaces intuitivas e apresenta uma barra 
de icones a esquerda da tela, onde o usua- 
rio seleciona itens correspondentes as 
fungoes mais usadas. 




-son ccLi- 

SOFT BELT MSX4 

R. Dr Liijs Ayres, 2114 Sala 3 - Aftuf Alvim 
Sao Paulo - Capital ■ Tel. (011)957-4666 
Proximo a Esta^ao Artur Alvim do Metro 



JOGOS E APLICATIVOS PARA MSX-1 



JOGOS, MEGARAM. APLICATIVOS EM DIS- 
COS 3 1/2 E 5 1/4 

• Temos mais de 2000 

• Os melhores do mercado 

• Os ultlmos langamentos vindo da 
Europa 

SUPER PROMOgAO: Cada 5 jogos 2 gra- 
tis a cada 10 jogos 4 gratis a escolha. A 
cada 5 aplicativos 1 gratis a cada 10, 2 
gratis. 
SOLICITE SEU CATALOGO! 



PERIFERICOS 



• Kit para Drive DMX 

• Flop ou Acionador DMX 

• Drives completes 5 1/4 ou 3 
1/2 

• Cartucho MEGARAM 

• Formularies Continuos, etc.- 



TEMOS JOGOS 
E APLICATIVOS 

ATENDEMOS 
TODO BRASIL 

SOLICITE 

CATALOGO 

GRATIS 



PROGRAMAS PROFISSIONAIS E SERVigOS 
AO ALCANCE DE TODOS 

Sovocesabeondeosapatoaperta. Porisso, seuprogramaespecificopassaa serum Programa AlternativoparaaP/lC Este 
e o motivo pelo qual nossos programas tomam-se bons produtos e custam muito menos. 

Programas padrao modificados 

Se voce adquire um dos nossos programas e deseja modinca-lo, defina suas ideias, envie-nos e aguarde nosso or^menio. 
Rapidinho chcj^mos a voce. 

Na PAC, voce fala direto com quem faz. Um de nossos programadores, altamente qualificados, sera responsavel pelo seu 
projeto. Portanto, se voce sabe mesmo o que quer, a partir de agora somos o seu suporte a distancia. 

Fomecemos programas com fonte 

Loucura? A principio sim. Porem, se cortarmos as algemas, voce estara ligado a PAC apenas per op9ao. — Separados — 
mas felizes para sempre. Assim 6 bem melbor ! 

Se voce programa ou tem pr6ximo de voce um prograroador, nao despreze esta possibilidade. 



PROGRAMAS SERVigOS 

imobili&riainformatizada 67.000,00 

Condomlnioinformatizado 57.000,00 

Posto de gasoHna informatizado 57.000,00 

Casa mat. construgSo informatizada 77.000,00 

Casadeferragensinformatizada 77,000,00 

Locadorade video informatizada 37.000,00 

Caixa informatizado 37.000,00 

Cobranga Informatizada 47.000,00 

Confec^ao informatizada 77.000,00 

l_ab. analisesclinicas informatizado 67.000,00 

Processadordeetiquetas 23.000,00 

Malaexpressa 37.000,00 



(*) 



n 
(*) 
(*) 
n 
n 
r) 
n 



PROGRAMAS PROFISSIONAIS 

Advogado informatizado 57.000,00 (*) 

Medico informatizado 57.000,00 {•) 

Veterin^rio informatizado 57.000,00 (*) 

Juiz informatizado 67.000,00 

Tradutor informatizado 27.000,00 

Contador informatizado 47.000,00 (*) 

Comprador informatizado 77.000,00 (•*) 

(*) Programa fornccido, opcionalmente, com c^digo fonte. Cuito: 3 sal. 
mfnimos + o programa. 

(**) Pre^o garaoddo mcdiante res«rva. 

Se o seu servigo nao se encontra em nossa Unha de produtos, 
converse com a gente. 



TRADUZIR FICOU MAIS FACIL 



Apromogao continua... Cr$ 44.000,00 

VOCABmAmO MVLTEmViSTICO PARA COMPVTADOR 




8&000palavras, 68.000 para portugueA/iagles 

Podem set acrcscentados oovos vocilbulos. 



30 combina^Ocs CDtrc as 6 Unguas. \ » * ^ 

Consulta simultAoea para todos os idiomas. 

Opera dcntro dc processadorcs de textos - residenie em mcm6ria. 

Gramiiica bisica da lingua portuguesa, liiando diividas sobre 
ortograQa, smtajte, reg£noa e muiio mais... 




REVENDAS 

Brasilia -DP 

Laptop Informatica 

Tel. (061) 226-0877 

Campinas - SP 

Exciton Ind. EleL Ltda. 
Tel. (0192) 419-766 

Criduma - SC 

Miranda Assessoria 

Tel. (0484)333-711 

Fortaleza-CE 

Telemicro Informatica 

Tel. (085)252-1514 

Satvador-BA 

Soft Shop Com. e Serv. 
Tel. (071) 359-4989 



^ T\ \ r^ Programas Altemativos para Computador 



i\ I 



Rua Dr. Bormann, 51 gr. 1203 - Niteroi - RI - CEP 24020 



(021) 717-3021 



BYTES 



Fiesp arquiva fotos em 
discos oticos 



Todo acervo de fotos e slides que 
compoem o banco de imagens da Fiesp 
-Federa9ao das Industrias do Estado de Sao 
Paulo sera digitalizado e gravado em discos 
oticos regravaveis, de 1 Gigabyte, com ca- 
pacidade de armazenar ate 32 mil imagens 
comprimidas. 

As imagens apresentam os produtos fa- 
bricados pelas empresas associadas a 
Fiesp. Sao 30 mil fotos e slides que, so dis- 
postas lado a lado (formato 18 X 24 cm) 
ocupariam uma extensao de 7,2 quilome- 
tros. Quando gravadas, ocuparao um unico 
disco otico, de 5 1/4 polegadas. 

O trabalho objetiva a preserver o acervo 
e faciiitar qualquer consulta ao banco de 
imagens, que pode serfeita em segundos, 
atraves das diterentes estagoes de trabalho 
interligadas em rede local no predio da 
Fiesp. A rede e gerenciada por uma CPU 
386 DX, que opera em 25 MHz, com 4 Mby- 
tes de memoria RAM, discos rigidos de 154 
Mb, place grafica Targa+ 16/32 e monitor 
Targa de 19 polegadas, colorido e de alta re- 
solugao. 

A responsabilidade da importegao e su- 




EQUIPAMENTO PARA LEITURA E GRAVAgAO 

porte tecnico da tecnologta dos discos oti- 
cos e da Computer Graphics and Vision Di- 
vision da Fotoptica, sistema e baseado no 
software Picture Pow/er com Hardware Com- 
pression, com o Sable Paint, da AT&T/GSL, 
para retoque de cores das imagens captu- 
radas. 



Para a leitura e grava^ao das imagens, 
a Fiesp vai utilizer o Panasonic Optical Disk 
Drive As imegens sao cepturadas por scan- 
ners coloridos Howtec, para papel e slides, 
e a saida de dedos sera feita via impressora 
termica Shinko e fotografadora Mirus, com 
a mil linhas de resolugao. 




n Clipper 
DAssembler 
DDOS 
ninterrupcoes 



NOVIDADE 



- Cartao Eletronico Instantaneo 

Lembra daquele cartao de consulta rapida que voce nunca encontra 
quando precisa? Pode aposenta-lo! Chegou o CEI Kernel, o cartao de 
referenda que fica resldente na memoria do micro. Quando voce precisa 
de uma informacao, ela esta la. Basta pressionar uma tecla. Nada mais 
simples, rapido, comodo e barato. E os assuntos sao os mais requisita- 
dos pelos programadores. 

COMO ADQUIRiR CEI: 



Na compra de dois ou mais 
cartoes eletronicos voce recebe in- 
teiramente gratis o software 
AGENDA KERNEL. 



Recorte este anuncio e marque quais cartoes deseja receber Cada 
cartao eletronico custa Cr$ 24.800,00. Anexe um cheque nominal a Ker- 
nel Consultoria e Sistemas, no valor total do seu pedido, e envie para 
ATI Editora S/A - Rua Washington Luiz,9 - gr 403 - RJ - CEP 20230 




MARSOFT 



inFDRmfiTkCft 



O MELHOR PARA SEU MSX E PC 



SOFTWARE 



Jogos e aplicativos p/ MSX 1,2 e 2 + 
Jogos megaram e memory mapper 

Ultimos Lancamentos 

A CADA 10 JOGOS, GRATIS -f 02 




o 



c= 



5UPRIMENT05 



Fitas para impressora — Formulario continuo 
Porta-disquetes — Cabos em geral 
Disquetes de 5 1/4 e 3 1/2 

E MUITO MAIS... 



HARDWARE 

— COMPLETA LINHA DE PRODUTOS DDX = 

• Drives Megaram • Modem 

'Cartao SOcolunas Kit 2.0 

•Kit 2.0 + (p|us) -Expansorde slots(4slots) 
■ Interfaces etc... 

— E mais : 

"DRIVE ANGEISA - garantia de 6 meses" 



ACEITAMOS CARTAO 
DE CREDITO 

S (Oil) 263.1170 




Dispomos ainda de 

SOFTWARE & HARDWARE 
para toda a linha 

IBM -PC XT/AT 



J 




ASSISTENCIA 

TECNICA 
ESPECIALIZADA 



CDmPRB-UEnDfl-TRDCft 

DE EQUIPAIMENTOS NOVOS E USADOS 





E NA MARSOFT 



HorarJo de 
atendimento : 

Seg. a sexta - 9:00 as 18:00 
Sibados ■ 9:00 as 16:00 



SEMANAIS 



SOLICITE 
CATALOGO 
GRATIS 



VENHA VISITAR 

NOSSO NOVO 
SHOW - ROOM 

REMETEMOS P/ TODO BRASIL 



^ 



Reconhecimento de padrdes 

Aprenda a fazer ''matching'' de um padrao com uma cena 



Evandro Seron Ruiz e Aparecido da Costa 



UM EXEMPLO DE "MATCHING" - IDEIA 



Atualmente a ^rea de Processa- 
mento de Imagens (P.I.) encontra-se 
entre as mais promissoras e emergen- 
tes ^reas nSo s6 da Ciencia da Com- 
putapao como tambem em varies ou- 
tras frentes como a Geociencia, 
Robotica, Medicina, etc, por sua vasta 
atuapao aplicativa. Dentro dos proble- 
mas que o P. I . ainda tenta resolver de- 
finitivamente, de maneira automcitica, 
est^ o de Reconhecimento de Padroes 
ou, em outras palavras, a tarefa de 
identificar uma figura F dentro de uma 
cena G. Porexempio, temos uma foto 
de uma cena G (ver figura 1) e dese- 
jamos localizar uma figura (um padrSo) 
F conhecido dentro dessa cena. 

Utilizando esse principio, as apli- 
capoes do Reconhecimento de Pa- 
drSes em Imagens sao inumeras e va- 
riam desde as aplicapoes belicas de 
reconhecimento de avioes e foguetes 
inimigos, at6 as aplicapoes industriais 
que procuram identificar numa linha de 
produpao os produtos com defeito, ou 
seja, numa cena de varies produtos 
procuramos por aqueles que nao se 
correlacionam com o padrao esperado. 

Uma das possiveis maneiras de se 
localizar F em G 6 usar a tecnica do re- 
gistro de imagens - 'matching'. Fazer 
'matching', ou casamento de um pa- 
drao com uma cena, significa sobre- 
por F a G em varies localidedes ate que 
todos OS pontos de F correspondam a 
todos OS pontos de G. Neste local, a 
correlepao entre a cena e o padrao e 
mexime, ou seja, para todos os pon- 
tos de F existe um ponto correspon- 
dente em G. 

CORRELACAO 

Uma das medides mais simples e 
imediatas de similaridade entre um pa- 
drao e uma cena e o quadredo de sua 



diferenpa (Dist^ncia Euclidiana) ex- 
pressa pela f6rmula D = {F - G)**2. 
Para realizarmos esse express§o no 
computador conslderaremos que F e 
G sao definidos como matrizes de pon- 
tos. Assim sendo, G ser6 uma metriz 
de m linhes por n colunas (G (m,n)), 
e F uma matriz de k linhas por / colu- 
nas (F (k,l)). Quasesempre F e menor 
que G. Assim sendo, e figura 1 pode- 
ria ser representede ne forma matricial 
como mostrado na figura 2. 

A procura pelo ponto de registro en- 
tre o padrao e e cena, ou seja, o ponto 
de casamento, e feita posicionando- 
-se o padrao F sobre a cena G em to- 
dos OS locais possiveis, o que na no- 
tapao escolhida 6 o mesmo que 
comparer F (u,v) com G (u,v), para u 
acompanhando todas as linhas de 1 a 
I e, V acompanhando as colunas de 1 
a k. Esse procura deve ser feita em to- 
dos os pontos (x',y') possiveis de G, ou 
seja, nos (m-k-i-l) times (n-l+1) pontos. 

Assim fazemos o registro, o 
'matching', usando o principio da cor- 
relacao, ou da cross-correlacao, que 
matematicemente e definida como: 



A ideia principal de implementacao 
foi fezer a correlecao de padroes bem 
definidos e conhecidos sobre uma cena 
como arranjos unidimensionais 
(vetores) e nao como matrizes, o que 
facilitou muito a progremecao. Outro 
detelhe foi o da visuallzacao dos ele- 
mentos desses arrays, onde optou-se 
pele epresentapeo de cerecteres grMi- 
cos de tele de texto e nao de pixels na 
tela grcifica. Notem, nesse ultimo, o 
compromisso entre visualizapeo, ou 
seje, temanho da cena e padrao, vis- 
tos pelo usu^rio, e rapidez, ja que, se 
operassemos em tele grafice, o numero 
de comparacoes serie muito elevedo 
para ume figure do mesmo tamanho, 
e o desempenho do computador no 
exemplo neo seria muito bom para os 
usu^rios de mSquinas pequenas. 

O codigo-fonte foi desenvolvido 
para ser compilado no Turbo C-vers§o 
2.0, mas pode ser fecilmente modifi- 
cado para outros compiladores C, 
como OS de Microsoft. As funpoes 
ebaixo citades tem os seguintes obje- 
tivos: 

faz— cena (). - ediciona um ruido S me- 



Cl't'.y') = E E f (". v)G(u + x', V + y') 



U=l V=l 



e para cade velor de (x',y') ter-se-^ um 
valor do somatorio. Se constderarmos 
cena e padrao entidades binaries, ou 
seja, valores (zero) para o fundo e 1 
(um) pere o contorno, teremos o velor 
mdximo de correlapeo igual ao valor da 
soma dos pontos 1 de metriz F, isso no 
ponto (x — o, y— o) otimo. 

Caso o padrao so se encontre em 
(x— o, y— o) todos OS outros pontos 
epresentarao valor do somat6rio infe- 
rior a este. 



triz de cena, escolhe uma posipao ele- 
et6ria e nela coloce um determinedo 
pedreo (figura). 

mostra— cena (). * respons^vel pele vi- 
sualizapeo de cena na tela. Atribui aos 
inteiros 1 um caracter em forma de 
bloco cheio e aos inteiros um carac- 
ter achuriado. 

mostra— fig (). - semelhante ^ anterior 
para visualizar o pedreo. 
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gera— rufdo (). - adiciona um ruido 
branco ^ matriz'da cena. 

cross 0. - e a principal funcao do pro- 
grama, a responsavel pela correlacao 
entre o padrao e a cena. Sua vari^vel 
localloc marca o ponto maximo de cor- 
relacao, o ponto de 'matching', ou seja, 
de maxima correlacao. 

marcador (). - recebe o valor do ponto 
de 'matching' da funcao (o ponto num 
array) cross e assinala esse ponto na 
matriz da cena da tela. 

CONCLUSAO 

Dentro das tarefas basicas de P.I. 



ou, melhorainda, de Reconhecimento 
de Padroes, a cross-correlapao situa- 
-se entre as tarefas mais simples de im- 
plementacao, muito embora possua li- 
mitados recursos diante de 
procedimentos como rotacao ou am- 
pliacao do padrao na cena. De qual- 
quer modo ai est^ o inicio de uma area 
que ainda tern muito a ser explorada. 
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• Listagem 1 



crcsB.c iTurtiCJ C 2.0) 

crosE-correUcdCJ 

Evsndfo EdiiardD Seron Riii: 

Aparecido Doraseti ds Costa 
(/ 

linclude <5tdio,h> 
linclude <.coniCj.h> 
lirtclude -.stdlib.h) 



tmclude ctiM.h/ 
linclude <do5.h> 
tdefirie BLOCK 219 
Idefine SPACE 176 
Idenne NIJLG 2SS 
Idelir.B SETfiE 24 
Idefine St'fiE 26 
Idefine TAM_CEN 
Idefine \ R'JIDG ■ 



600 
200 



IX -ta&anho da cena para copeUcao M 
!t ■ " " fiqura " - " (/ 
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tdefine NFIG 4 /> nuiero taxlio 


de figuras 


1/ 


int tpfig; 




♦define TfiHJIS 25 /I taianho laxiio 


da figura 


1/ 


void gera_ruido (void); 




int LETY [TAhJIB] = {1,0,0,0,1, 








gera_niido (); 




A 1 A 1 A 

V, 1,0, 1,0, 








/I escolhe coluna e linha aleatorias 




0,0,1,0,0, 








para colocar uia das figuras 1/ 




0,0,1,0,0, 








randoitize (}; 




0,0,1,0,0)5 








Un = randoi (U); 




int LETM [TAMJIG] = {0,0,0,0,1, 








col = randoR (26); 




0,0,0,1,0, 








po& = lint30 + col; 




0,0,1,0,0, 








pfig = ijig [fig]; 




0,1,0,1,0, 








Un_cen = pos; 




1,0,0,0,1}; 








for (lin=0; lin<=4; lin++) 




int LET* [TAMJISl = {1,0,0,0,1, 








{ 




0,1,0,0,1, 








for {col=0; col<=4; col++) 




0,0,1,0,1, 








{ 




0,0,0,1,1, 








cena [lin_cen+col] = tpfig; 




1,1,1,1,1)J 








pfigtt; 




int LETL [TAflJlS] = (1,0,1,0,1, 








} 




1,0,1,0,0, 








lin_cen = lin_cen+30; 




1,0,1,1,1, 








J 




1,0,0,0,0, 








} 




1,1.1.1,1)-, 










- 1/ 




int UJig [N_FIG] = (LETY, LETfl, 


LETi, 


LETLl; 




void lostra cen (int col, int lin) 




int cena [TAH_CEK]; 








{ 




■ain 








int x,y,lBax,cftax; 




{ 








int tpn; 




int posicao, Unha, coluna; 








pn = cena; 




int 1; 








liax = Un+20; 




void lostrajig (int, int, int) 








c«ax = col+30; 




void io5tra_cen (int, int); 








gotoxy (col, lin); 




void faz_cen (int); 








for (y=lin; y<iMx; y++) 




void larcador (int); 








for (x=col; x<ciaxj x+t) 




void fresc (void); 








{ 




void init (void); 








gotoxy (x,y); 




drscr {); It litpa tela t/ 








if (Ipn) 




init ()i 








cprintf Clc'tBLQCri; 




fresco ; 








else cprintf {'Xz', SPACE); 




for (i=0; i<4; it+) 
{ 
faz_cen (i); 








pn++; 
} 
} 












■D5tra_cen (10,3); 










- t/ 




■ostrajig (53,10,1); 








void lostra fig (int col, int Un, int fig) 




gotoxy (3,24); 








{ 




cprintf ('Procure pela figura ac 


lado 


, ou ...'); 




int x,y,liax,ciax; 




gotoxy (3,25); 








int tpn; 




cprintf ( ■TOQUE QUALQUER TECLA FARA INICIAR A CRQ5S-CQRR 


pn = iJig [figl; 




ELACAQ- ) ; 








liax = lin+5; 




getch 0; 








ciax = coliS; 




gotoxy (3,24); dreol (); 








gotoxy (col, lin); 




gotoxy (3,25); clreol (); 








for (y=Un; y<Uax; y++) 




■arcador ( cro&s (1)); 
} 
getch 0; /t paradinha t/ 








for (x=col; x<ctax; x+*-) 

r 










gotoxy (x,y); 




) 








if («pn) 
cprintf CXc", BLOCK); 














void faz cen (int fig) 








else cprintf ('Xc', SPACE); 




( 








pn+*; 




int coif lin, pos, lin_cen; 








) 
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^TTS 



nTT^STTTTSTIT 



DE DOMINIO PUBLICO, SHAREWARE 



- SISTCMA OPERACIONAL 



■ 3000 - XINU: Clone UnlitfXenIx (6 discos). 



- PROGRAMACAO 



• 4001 - LEX: Analisador de Lexlco, com Busca, Pro- 

cura e Varoduta. 

* <002 - BVACCi Geradot de "Parsing" (5 discos). 



• 2600 - Biblioteca de Utilltdrlos para WINDOWS (1S| 
Discos), 



- PROCESSH'EXTO 



100 - GALAXY; aONE WS. (2 Discos) 

101 - CHIWRITER: EdiVGffillco(2D.). 

102 - PC-WRITE: Proces, Complelo (3 D,). 

103 - BLACK-MAGIC: Hipertext (3 D.). 

104 - JOVE: WP./Malnframe, Adaplado p/ PCs 

(3 D.). 

105 - QUtP: WP Grafico, pi 286 (4 □.). 

106 - WORD FUGUE; Suporta User, Compat./WS 

(3 D.). 
130 - INTEXT; Ptocessadof p/ VSrlasLfnguas. 



- INTEGRAOOS 



• 200 - COMPASS: Planll./Pfocess./Contab./Ca- 

iend./UtliiL 

• 201 - SSI: PlaniL/P^ocess./BD/ComlJnic./Ca^ 

cuL/UlN.-DOS (2 Discos). 

• 202 - AU-irjONE: Planllha. WP. BD. Comunic, Utl- 

IIU 



' - BANCO DE. DADOS 



300 - WAMPUM: Cione/DB3, Mono/Mulllus (2 D.). 

301 - PC-FIL£db: Graficos, ImpJExp. DB3 (3 D.). 
303 - ZOOMHACKS; Fichario Eletron. (5 D.). 

330 - IMAGE ACCESSt BDp/TextoseGrSficos. 

331 - ZEPHIFt BD Relacignal (2 Discos). 



401 - PC-PROFESSOR: Ensino/Baslc. 

402 - C-TUTOR; Ensino "C" (3 Discos). 

403 - TURBOC TUT: Ensino Turbo "C" (2D,). 

404 - PASCAL TUTOR: Ensino Pascal (3 D.). 

405 - LOTUS LEARN: Ensino Lotus (3 D.). 

430 - TLfTOR DOS; 21 LIgOes/EnsIno DOS (4 D.), 

431 - C++: Tutorial C++ (2 Discos). 

432 - PC ASSEMBLER HELP: Ensino Assembl. 

(2 D.). 



- EDUCATIVOS 



501 - FRENCH; Ensino Ftancis. 

503 - JAPANESE; Ensino JaponSs. 

504 - GERMAN; Ensino AlemSo. 

505 - ITALIAN; Ensino [lallano. 

506 - FLASH CARDS; Dlclonflrio lnglSa'lngl6s 

(4 D.). 

507 - CALCULUS: Ensino Algebra, Trigonometria. 

509 - VIOEOCHEM: Ensino da Qufmica. 

510 - GOGOL: Ensino Matem. p/Crlangas. 

530 - WORD GAl±ERY: GrStlcos p/ crlangas. 

531 - FAST TYPE; Ensino Dalltografia. 

532 - OLE; Ensino Espanhol. 

533 - ELEMENT STUDY; Tab. Peri6dica. Qufmica. 

534 - PC GLOSSARY: Glossario de Inlormailca. 



600 - DISK COMMANDO; Clone ■Norton". 

601 - LQPRINTER; Impr./CaracU Grallc. 

605 - MYSTIC PASCAL: Compll. -Rascal". 

606 - FANCY LABEL Eliquetas. 

610 - PKZIP SHEZ; Compac!.rt)escomp. (4 D.). 
633 - COMPACT ADORES: De NovasVerB6es{3 D.), 

611 - ZIPZAP; Mostra/Edita Seloresde Disco. 

612 - SECUREIT: Protege Arquivos, Segufanga. 

613 - TESSERACT; CrIa Programas TSR (2 D.), 

614 - HDM; Novoll Gerenc./HD, Password (2 D.). 

615 - LASER: Coletaneade UliliL (13 0.). 



• 616 - HDTEST: Stiell/DOS. Teste Maid, Allnh. 

Floppy (2 D.). 

• 617 ~ PRINT CONTROL: Impflme Janela deTelas. 

• 618 - XBATCHl Utilit. p/ Arquivos Batch. 

• 619 - BACKUP/RESTORE: UtlliL p/ Backup/Restore. 

• 633 - DIRECTOR: Interlace p/ DOS, 

• 620 - FILE PATCH: Edita Selore^Arqulvos at6 

10 MB. 

• 621 - DOSLOCK: Password p/ HD. 

• 622 - FUGUE: Interf./DOS, Eliq. tf Nome, Tamanho 

Arquivos (2 D.). 

• 623 - VMS40: Simula MemiSrla Expandlda. 

• 624 - MODELS: "Case"Desenvolv.Wplicat./BD, 

• 625 - PCMASTERCONTROL: Criaeflo de Menus, 

• 626 - MR. LABEL Eliquetas, Enderegos. 

• 627 - ACTIVE LIFE; Agenda/Calendfirio. 

• 628 - FORMGENN'S; Duplicator deDisquetles. 

• 629 - PC IRIS: Password p/ DOS e Arquivos. 

• 630 - ASC2COM: De ASCII para COM, 

• 631 - UNISCREEN: Gera Menus/Janelas (2 D.) 

• 632 - TEMESCAL Ferram. p/Desenv./Sollware, 

• 680 - CALMER: Clone Norton (4 Discos). 

• 681 - ROBERT: Utlllt/HD, ConcalenafCrlptogr. , 

Pesquisa p/ String (2 D.). 

• 682 - CORE: Testa a "PERFORMANCE" do Disco 

Rtgldo e Conlroladora. 

• 683 - LZEXE; Cf la Arquivos Autodecompadav. 



- ANI1VIRUS 



700 ~ FLUSHOTPLUS: Protege Contra Vfrus. 

701 - VIRUSFREE: Delecta/Elimlna, Bloquela Vf- 

rus (4 D,). 



- BIBUOTECA DBASE, CUPPER, MFOX 



' 2400 - Roiinas Utlliu/Ferram./Apllcai. (65 D.). 



- COMERCtAIS/FINANCEIROS 



900 
901 
902 
903 
905 
906 

910 
912 
913 



• 960 

• 930 



FLOWDRAM; Fluxogramas. 

BAH CODE; COdigc^Barra. 

FORMASTER; Gerad./Formul. 

CASE: Contab. (3 Discos), 

INVENTORY: Esloque. 

FINANCE MANAG; Conlab. Parlida Dupla 

(2 D.). 

CHEOUEITOIJT; Contro./lmpressSo/CtiequBa. 

INVENTORY: Conlrole de Estoque. 

INCONTROU Gerenc/Escrit6rio, Cashflow, 

Inventfirio, Discagem Autom. EscritAflo Ele- 

trOnico etc (2 D.). 

PERSONAL PORTFOUO; Analisadof/Apli- 

capfies (2 D.). 

AXS: Conlabllldade (7 Discos). 

DAYO: Contab. Clas/Pagar/Receber, Esto- 

que. Lista de Pregos etc. (23 Discos), 



1000 
1001 



• 1003 

• 1004 



ASEASYAS: Clone Lotus (2 D.). 

PC-CALC; FungOes Matem,/Trlgon,/Eslatisl. 

(3 D.). 

INSTA^fTCALC: Planlliia Resid,/Mem6ria. 

POWER SHEETS: Planllha 3D, (2 D,), 



- COMUNICACAO 



• 1100 - OMODEM: Tfansf./Subdiretfirios, VAriosPro- 

loc. (3 0,). 

• 1101 - PROCOW/: Emula Terminals (2D.). 

• 1102 - PRIVATE LINE: Mlcrofl^lcro, Cabo-RS232. 

• 1106 - GTPOWERCOMM: Conversacional, Modo 

-Hosr(4 D,). 

• 1104 - SERIAL FILE COPY: Transfere Arquivos 2 

CompuL enlre 5.25" e 3.5" Via RS232. 

• 1110 - COMUNICAQAO: Novas Versfies Micro/Micro 

BBS (3 Discos), 

• 0000 - TELEMATE; Indue Edllor, Permilindo Edi?5o 

SImulifinea a ComunicagSo. VSrlos Protoco- 
los(3D,) 



- DESKTOP MANAGER 



• 1300 - HOMEBASE: Clone SK (3 Discos). 

• 1301 - NIFTY: Agenda, Calcul,, etc 

• 1302 - DESKTEAM; Agenda, Calcul,. Calend./Re- 

sld. Mem. 

• 1330 - MEMTOOL TSR. Calcul./Calend./Editor, etc. 



- GERENCtADORES DE PROJETOS 



• 2000 ■- PC PROJECT: CrUica, GraficrGantr (2 D.). 

• 2001 - BESTGUES: Avalia?ao Tempo/Tatota 

Met,*Perr. 

• 2002 - EASY PROJECT; PfOjetos Comerc, Escala 

'Gantr. 

• 2030 - SIMPLE PROJECT: Gfdficos de "Gantf. 

• 2031 - UDECIDE: Avalla OpgOas p/ Tomada/De- 

clsao. 



- QRJ^ICOS 



• 1400 - PCKEYDRAW: Deshiop Publ. (5 Discos). 

• 1401 - DANCAD/CAM: Animac./3 D (7 Discos), 

• 1402 - EXPRESSGRAPH: Linhas, Barras, Torlas. 

• 1403 - GRASP: Anlmac./TelaB{2 Discos). 

• 1404 - CURVE DIGITIZER: Grfitlcos 2D, (2 D,), 

• 1405 - CUP ART; Desenhos p/ EditoragSo Elelron. 

(18 D,). 

• 1406 - TURBOFLOW: Fluxogramas. 

• 1430 - MEGACAD: 2 Vezes + Velos Autocad. (2 D.), 

• 1431 - TYPESETTER: Tertos/Grfltlcos (2 D,). 

• 1432 - RUBICON: ComposigfloTlpogrgflca (3D.). 

• 1433 - PC IMAGES; Capture Telas GrSlicas. 



- VARUS 



• 1680 - MICAL DIagndsiIco M6dlco (3 Discos). 

• 1681 - PSICOMED: Comp6ndioPslcotarmacoll5glco. 

• 16B2 - CHIRO-B: Dados para MSdIcos, 

• 1608 - DENTAL PM: BDp/dontlstas (5 Discos). 

• 1600 - WORLD DIGITIZED: Cartog./Geogr. (4 0.). 

• 1690 - WORLD; S99 Cldades do Mundo no Mapa 

GeogrSIIco c/ LaL , Long. 

• 1601 - VC.IDBASE: Caialog./Vldeocassete, 

• 1602 ~ FLOPPY CAT; Calalog./Dlscos. 

• 1684 -BOOK MINDER: Catalog./Llvros/Ravis- 

tas'Jornais. 

• 1603 - Blotibno, Lotto, Fever, Tarot, lchlnfl(3 D.). 

• 1683 - LOTO/SENA/ESPORTIVA: Ajuda a Fazer 

Previsfles. 

• 1606 - FORTUNE: Asltol./Numerol,/H, Chin. 

• 1607 - PC-MUSICIAN PIANOMAN: M0slca(2 D.). 

• 1609 - OVERLOARD: Gerenc/Condomfnios (3 D,). 

• 1610 - PC MECHANIC: Gerenc. FrotaarVefculos. 

• 5000 - TRADUTOR: Auxfllo p/ TradugOes. 

• 5001 - ELETRO; lnstala(;0esEI6lrlcas{2D,), 

• 5002 - DBS: BD p/ Engenharia Elfilrica (5 D,). 

• 1612 - GEOMANCY: AnUga Forma deDivlnagSo. 

• 1 630 - FAMILY HISTORY: Genealogia (3 D,), 



1700 - Labirinlos. Cartas, Tabulolro/Dados, Espor-I 

te, Aventura: Chess/3D, Poker, Bridge, 

DIackjak, SolltArlos, Backgammon, Loterla, 

Slot Machine, Pinball. Guerra Especial, Cor-| 

ridas. Ficgao, MahJong, etc, (50 Discos). 



- KATeHATICACieMCrAS 



• 1800 - PWRSTB88: Anailse Numflrlca. 

• 1801 - CALCULUS 1: S6rie TaylOf/Fourier. Newton, 

Eq, Ord./Dlleronc, Polin6mlos. Geom., 
Alg, Linear, Matriz9s/Vetores{5 D.). 

• 1802 - STATMAT: Andlise Estalfstica (3 D,). 

• 1803 - CHEMICAL EsIcuL Molecul. 3D. 

• 1804 - XACT; Emula HP12C e HP16C 

• 1805 - CRYSTAL Gera Modelos em Cristals em 3D. 



E AINDA: Utilltarlos do XENIX p/ DOS. Conversores, 
AlimentagSo. Agrlcultura, Genealogia, Esporte, Biblio- 
teca "C, Biblioteca Turbo Pascal, Astronomia, Ciflncias 
Espacials, Iniellgdncia Artlllclal, Rellgiao, Quiz, etc. 

IMAIS DE 30.000 PROGRAMAS. 



PAHA/PC. PC-XT, AT E COMPATl- 
VEIS. DISCOS 5.25" E 3.5" ' 

PREQO: A PARHR DE Cf$ 2.000.00 

pohc6pia 

VtDEOTEXTO: CrJ 20.000,00 
XINU: SISTEMA OPERACIONAL: 
CrS 20.000,00 




DOMilMIO PUBLICO SOFTWARE E PROCESSAMENTO DE DADOS LTDA. 
AV. PAULISTA, 352 - 9? ANDAR - CJ. 97 - CEP 01310 - SAO PAULO - SP 



(Oil) 



288-6898 
251 -2344 



:ld.'.UJJ.'.l*l-IJAc.].>l:!:Wli 



i 

IX 

void gera ruldo (void) 

{ 

int i,lc,l; 
for (i=0; i<TftH_JAN; i++) 

cena [i] = 0; 
randoilze [); 
k = TfidJAN tl; 
for (1=0; i<=N_RUIDO; i++l 

{ 

1 = randoi(li); 

cena [11 = Ij 

J 
J 
IX 



%l 



M 



int cross (int fig) 
{ 

int i,i,lt,l5 

int loc = 0; 

int fcorr = 0; 

int Ipcen, Jpfig, tpcaux, Ipontjig; 
pontjig = ijig [figlj 
pcen = cena; 
pfig = pontjig J 
for (i=0; i<=15; i+t) /I fig percorre linhas da cena it 

{ 

for (j=0; j<=25j i++) IX fig percorre colunas da cena M 

( 

fcorr=0} 

pfig = pontjig; 

pcaux - pcen; 

for (k=0; k<=4) k++) IX correUcao figura I cena XI 

{ 

for (1=0; KM; 1+*) 

( 

if ((tpcaux) == (Ipfig)) 

fcorr*+; 
if (fcorr == TftHJIG) 

return loc; 
pfig++; 
pcaux^^; 

) 

pcaux ^= pcaux+25i 

i I 
pcen++; 
loc++} 

) 
loc = locM; 
pcen = pcen+4; 

} 
return 0; 



coluna - po5icaol30 + 10; 

gotoxy (45,24); 

cprintf CJft ENCOMTRQU ??? fiGUARDE!*)} 

for (i=Oj i<50j i++) 

( 

gotoxy (6,linha); cprintf CXc'iSETAE}} 

delay (50); 

gotoxy (6,linha); cprintf ('Xc',HULD)5 

delay' (50); 

gotoxy (CDluna, 24); cprintf ("Ic',SETAB); 

delay (50); 

gotoxy (cQluna, 24); cprintf ('U',MULQlj 

delay (50); 

; 

gotoxy (45,24); 

clreol 0; 

} 

fX 

void fresc (void) 

{ 
char tU = "ttU XXXX UXX XXXX tttt" 



XI 



till! I ■ 

tut t t tttt tttf 

tt t t t f 

t t tttt tttt tttt' 



char tl2 = 't 
char tl3 = "t 
char 114 = M 
char tl5 = "Utl 

char tvt [5]; 

int i; 
vt[0]=U; vt[l]=12: vt[2]=13; vt[3]=l4; ^t[4]=15; 
for (i=0;i(5;i++) 

{ 

gotoxy (45,3+i); 

cputs (vt[il); 

; 

IX 1/ 

void init (void) 

( 

drscrO; 

printf CCross-correUcao 1.0\n'); 

printf ('Evandro Eduardo Seron Ruiz\Aparecido Doniseti da 

Costa'); 

printf ("FFCLRP - USP iun/91\n'); 

Bleep (2); 

drscr (); 

} 

IX fii cross. c 1/ 



1 

IX 



XI 



void larcador Unt posicao! 

( 

int linha, coluna,i; 
linha = po5icao/30 + 3; 
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A\m 



A EDITORA 
CieNClAMODERNA 
OFERECE AVOCe 




OPgOES 

QUE EXTRAIRAO 

RESULTADOS 

MACROS DE 

SEUS MICROS 



IDOS 



DOMINANDO O DOS Para 
as versoes 3.3 e 4 

Judd Bobbins 

Formato: 16x23cm /680 p. 

Cr$ 11.900,00 



'«*««!* 



fttwi; 



v^Jlt ^ 




F E RR AM ENTAS EM 
TURBO PASCAL 

Frank Dutton 

Formato: 16x23cm /412 p. 

CrS 8.400,00 

• Disquete de 5,1/4" DD 

para IBM-PC e compatfueis 

contendo 134 proyramas 

deste livro; Crffi 6.700,00 




CONHECIMENTOS 



^«%fe# 



DOMINANDO O TURBO C 

Stan Kellv-Bootle 
Formato: 16x23cm /626 p. 
Cr$ 8.640,00 



PROGRAMACAO 

Turbo 




programaqAo em 

TURBO C+^^ 

Ben Ezzel 

Formato: 16x23 /404 p. 

Cr$ 14.500,00 




DOMINANDO O TURBO 
PASCAL 5 

Douglas Hergert 

Formato: 16x23cm /572 p. 

Cr$ 8.400,00 

' Disquetes de 5,1/4" DD 

para I BM-PC e compatfueis 

contendo 22 programas 

deste livro: Crai 5.700,00 



Fa^a ja' o seu pedido! 



POiaPC 



mami 



Guiode 

ammmi 

ammmm 



pagemaker 4 guia de 
referSnciarApida 

Marvin Bryan 
Formato: 14x21 /164p. 
Cr$ 4.800,00 




PROGRAMApAO GRAFICA 

EM TURBO C++ 

Ben Ezzel 

Formato: 16x23/618 p. 

Cr$ 14.500,00 



Gaiado 
Programador 

Guia do Programador para 
asplacas EGA e VGA 

Richard F. Ferraro 
Formato: 16x23cm /712 p. 
Cr$ 13.500,00 
' Disquete de 5.1/4" DD 
para IBM-PC e rompatfveis 
contendo 80 programas 
deste livro; Cr$ 6.500,00 




AMPLrANDO O DOS 1991 

Rayduncan 

Formato: 16x23/492 p. 

Cr$ 10.600,00 




DOMINANDO O NORTON 
UTILITIES 5 

Peter Dyson 

Formato: 16x23 /476 p. 

Cr$ 10.500,00 




BIBLIOTECAS EM TURBO 
PASCAL 

Adonai Alvino Pessoa 
Formato: 14x21cm /132 p. 
Cr$ 3.900,00 
' Disquete de 5.1/4" DD 
para IBM-PC e compatfveis 
contendo o programa deste 
huro: Cr$ 5.300,00 



lasi^Jet 



DOMINANDO A HP 
LASERJET 

Alan R. Neibauer 
Formato: 16x23cm /612 p. 
Cr$ 12.700,00 






DOMINANDO O 
WORDSTAR 5.5 

Greg Harvey 
David J. Clark 
Formato; 16x23 /440 p. 
CrS 10.000,00 




INTRODUCAO AO Quick 
BASIC 

Armando Oscar C. Filho 
Formato: 16x23cm /312p. 
Cr$ 5.400,00 
" Disquetes de 5,1/4" DD 
para IBM-PC e compatfveis 
contendo 15 rotinas prontas 
para uso. ; Cr$ 5.700,00 



EDITORA 



Desejo receber da EDITORA CI^NCIA MODERNA o(st 



tivro s 



OBS.; Os disquetes saoopcionais 



LIVROS 


DISQUETES 


( 1 Dominando o DOS (Cr£ 1 1.900,00) 




( ) Ferramentas em Turbo Pascal (Cr$ 8.400,00) 


( ) (CrS 6.700,00) 


( ) Dominando o Turbo C (CrS 8.640,00) 




( } Programa^ao em Turbo C++ (Cr$ 14.500,00) 


( ) (CrS 9.000,00) 


( ) Dominando o Turbo Pascal 5 (CrS 8.400,00) 


( ) (CrS 5.700 00) 


( ) Pagemaker 4 guia de referenda (CrS 4.800,00) 




( ) Programa^ao Gr^f ica em Turbo C++ (Cr$ 14.500,00) 


( ) (CrS 9.000,00) 


( ) Guia do Prog, para as placas EGA e VGA (CrS 13.500,00) 


( ) (CrS 6.500,00) 


( ) Ampliandoo DOS 1991 (CrS 10.600,00) 




( ) Dominando o Norton Utilities 5 {C::.x% 10.500,00) 




( 1 Bibliotecas em Turbo Pascal (CrS 3.900,00) 


( ) (CrS 5.300,00) 


( ) Dominando a HP LaserJet (Cr$ 12.700.00) 




( 1 Dominando o Wordstar 5.5 (CrS 10.000,00) 




( ) Introducao ao Quick BASIC (Cr$ 5.400,00) 


( ) (CrS 5.700,00) 







Nome: 



Endereco: 



Cidade. 
Estado: 
Cep: 



Envio anexo Cheque Nominal % 

EDITORA CliNCIA MODERNA, no valor correspondente 

do total do pedido: Cr£ 



Assmatura: 



Remeta seu pedido: Rua Washington Luiz, 09 - Gr. 403 RJ - Cep. 20230 



IGO 



Disquetes: fundamentos 

Salba fudo sobre seus disquetes 



Carlos Gongalves 



Os disquetes de 5 1/4 polegadas, tambem conhecidos 
por minidiscos, discos flexiveis, floppies ou disquetes, sao 
seguramente o principal meio de armazenamento de massa 
dos microcomputadores PC e seus compativeis. 

Desde o lancamento do primeiro modelo PC, em 1981 
no mercado americano, que estes vem equipados com uni- 
dades de discos (drive) de 5 1/4 polegadas, tornando-se 
assim um padrSo. Este meio de armazenamento so veio 
amudarem 1987 com o lancamento da s6rie PS/2 da IBM, 
onde foram adotadas unidades de discos que usam dis- 
cos de 3 1/2 polegadas conhecidos como microdiscos, s§o 
mais resistentes e mais dur^veis que os de 5 1/4 polega- 
das, al6m de ocuparem manor espago fisico, facilitando 
manuseio e o armazenamento dos mesmos. 

Uma das primeiras coisas que voce tern que aprender 
a manipular de imediato (quando comepa a lidar com com- 
putadores) sao os discos flexiveis. Como se sabe, e neles 
que serao armazenadas todas as informagoes necess^rias 
ao seu trabalho no computador 

Vejamos de forma resumida como se apresenta fisica- 
mente um disco flexivel. Considere para tal a Figura 1 que 
mostra um disco tipico de 5 1/4 polegadas de diametro. 
disco propriamente dito est^ envolvido por uma capa 
quadrada em material pl^stico e semi-rigido com 3 furps. 
disco por sua vez tambem e de pl^stico, porem fino, co- 
berto por uma camada de 6xido de ferro, nao muito dife- 
rente das fitas cassetes; alids, o principio fisico aqui en- 
volvido 6 o mesmo. O furo maior no centro do disco e para 
o eixo central do acionador de discos 
segurar o disco e poder girci-lo dentro 
do envelope, enquanto o furo oblongo 
permite que o cabegote de gravac§o/ 
leitura toque a superftcie do disco para 
armazenar ou recuperar informagoes. 
furo circular menor e chamado furo 
indice, e se alinha no furo do disco em 
rotagao, informando S m^quina sua 
posigao ao girar (sinaliza ao aciona- 
dor o inicio das trilhas). 

picote lateral na parte superior 
pode ser coberto por uma fita go- 
mada, fornecida na caixa junto com 
OS disquetes pelo fabricante, a fim de 
evitar a escrita ou apagamento aciden- 
tal no disco. Uma tentativa de escrita 
Figum 1: anatomia de um disquete de 5 1/4 



ou apagamento em qualquer disco com o picote coberto 
provocara uma mensagem de erro pelo sistema informando 
a condicao de protegao contra a escrita ou apagamento. 
Isto e de grande utilidade no manuseio dos arquivos, 
evitando-se perdas acidentais. Todo disco flexivel vem acon- 
dicionado em envelopes de papel e deve 1^ permanecer 
quando nao estiver em uso. 

A transferencia da informagao entre o computador e o 
disco, e feita via cabecote de gravagao/leitura que pode 
se deslocar da borda exterior para o centro {Figure 2). 
sistema e semelhante a um toca-discos, com o cabegote 
fazendo as vezes do brago fonocaptor, e o disco magn6- 
tico substituindo o nosso disco de vinil. As semelhangas 
cessam aqui contudo, pois a informagao contida num LP 
§ lida de forma linear e nao e magnetica (estS escrita nos 
sulcos espiralados). Em verdade, os disquetes para o PC 
b^sico e PC/XT sao compostos por 40 trilhas concentri- 
cas e nao continuas, indo da posigao mais externa ^ po- 
sigao 39 proxima do centro, podendo o cabecote ocupar 
40 posigoes diferentes. 

PC/AT, entretanto, exige disquetes de formas seme- 
Ihantes, por6m com 80 trilhas ao inves de 40 (isto, sem du- 
vida, permitir^ maior capacidade de armazenamento). 

As trilhas, por sua vez, sao divididas em partes meno- 
res chamadas setores, numerados de 1 a 9 no PC basico 
ou PC/XT; na versao 1.0 do DOS sao numeradas de 1 a 
8. No PC/AT, todavia, cada triiha tem seus setores nu- 
merados de 1 a 15. Cada setor possui um tamanho fixo 
de 512 bytes e a informagao pode ser escrita nos dois la- 
dos do disco ou em um lado apenas. Dessa forma existem 
disquetes de dupla face ou simples face, bem como uni- 



capa externa de^ppote9ao 














^ 



picote de 
p]!K)te9ao 
a escrita 



orificio central 



fupo indice 



triiha 8 




-tmlha 39 



disquete 



Jane Us de 
ao disco 



acesso 
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eixo central 




Movinento Ae acesso 
* i*- 



cabe^as de leitura/escrita 



na triiha mais interna. Dupla densidade pode ar- 
mazenar 5.776 bpi. numero de trilhas por pole- 
gadas num disquete de dupla densidade e usual- 
mente de 48 tpi {tpi/tracks per inch), ou ainda 96 
tpi para OS disquetes de qu^dmpla densidade. 



bpa^o de acesso 



disquete 



trllha 39 tpilha fl 



ESTRUTURA 


5,25 


5,25 


3,5 


3,5 


DO DISCO 


Dupla 


Alta 


Dupla 


Alta 




Densi- 


Densi- 


Densi- 


Densi- 




dade 


dade 


dade 


dade 


Num. de trilhas 


40 


80 


80 


80 


Setores/ triiha 


9 


15 


9 


18 


Caract. p/setor 


512 


512 


512 


512 


Total de setores 


720 


2400 


1440 


2880 


Total caracteres 


360K 


1.2M 


720K 


1.44M 



Figura 2: Acionador de disco com urn disquete de 5 1/4 

dades de disco correspondentes. Os disquetes de face sim- 
ples com 8 setores por triiha jd estSo obsoletos e sSo re- 
manescentes da versSo 1.0 do DOS. 

E importante observer que uma unidade de disco de du- 
pla face consegue ler um disco de face simples, por6m uma 
unidade de disco de face simples nao conseguir^ ler um 
disquete de dupla face. Diante dessas informapdes pode- 
mos determinar a capacidade de armazenamento de um 
disquete de dupla face com 9 setores por triiha (capacidade 
de armazenamento tipica de um PC-XT), como segue: 

- 40 trilhas x 9 setores x 512 bytes x 2 lados=368.640 bytes 
isto corresponde a 360 Kbytes (por definigao um Kilobyte 
6 igual a 1024 bytes). Qual serS a capacidade de um dis- 
quete com as caracterfsticas acinria para um PC/AT? Con- 
flra sua rBsposta com a tabela dada adiante. 



Tabela: possiveis organizagdes de um disquete 

SETORIZACAO SOFT E SETORIZAijAO HARD 

Os setores sSo a unidade b^sica para armazena- 
mento nos discos. Toda vez que 6 feito um acesso 
aos dados num disquete, o mfnimo de um setor 6 
lido ou escrito. Acionadores de discos e disquetes 
sSo classificados em setorizapao soft ou hard, de- 
pendendo de como o drive mant6m registro de onde 
OS setores est3o localizados no disquete. 

Um disquete de setorizap§o hard possui um buraco na 
frente de cada setor, normalmente proximo ao centra, e 
servlndo de indlcador para o drive (veja Figura 3). Por ser 
uma imposipSo de construpSo, o tamanho e o numero de 
setores dos disquetes de setorlzapSo hard s§o sempre cons- 
tantes. 

Por outro lado, os disquetes de setorizapao soft possuem 
um unico fura-indice que indica o Inic.io das trilhas. O nu- 
mero de setores por triiha e o tamanho de cada setor sSo 
definidos por um programa formatador que vem junto com 
o computador. 

PC da IBM usa disquetes de setores com tamanhos 
varidveis. Por conta disso, todo disquete novo que destina- 
-se a use num PC deve ter essa estrutura gravada no disco. 
Este processo 6 chamado formatapao. 



DENSIDADE DE GRAVAgAO 

Na Ifteratura t6cnica 
define-se como numero de 
bits que podem ser grava- 
dos num disquete, numa 
circunfergncia de uma po- 
legada, na triiha mais in- 
terna do disquete. Esta 
medlda 6 referenclada 
como bits por polegada 
(bpi/bits per Inch). Os bits 
por polegada variam de fa- 
bricante a fabricante. 
Como exempio, um fabri- 
cante especifica que drives 
de densidade simples po- 
dem armazenar 2.748 bpi 





setopiza<;aQ soft 



setorizaQao hapd 



Figura 3: disquetes de 5 1/4 com setorizagSo soft e hard, 
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6.35 10 "^cw 




particula 
de poeira 



cabelo 
Jiu»»ano 

0.876 CM diapt. 



iMppessao 
(JiSfital 



,.^\ / 



'•\ - 






L > 



T^T . ii . ' fr>.j.j.'.'.'.- ' .'.r ^ 



y 



d - 2.54 le'^cn 



supeifficje do disco 



Figura 4 ■ mostra aproximadamente o afastamento entre a cabega flutuante do drive e a superficie'do 
disco (cerca de urn milionesimo de polegada). Com estas toleiincias, contaminacoes tais como particulas 
de fumo, poeira, impressoes digitals ou mesmo o cabeio humano podem tornar o drive inuTilizado. 



1 - Colocar sempre os disque- 
tes na capa, quando nao em 
uso. Isto evitara que poeira, cin- 
zas de cigarros, p6 de giz ou 
outtBS microparticulas presentes 
no ambiente, incidam sobre as 
aberturas do mesmo, contami- 
nando-o. 

2 - Nunca tocar com os da- 
dos no orificio de acesso do ca- 
begote. Fundamental, pois a 
impressao digital deixada sobre 
a superficie do disco poder^ 
diftcultar a leltura/escrita no 
meio. 



ACESSO AGS DADOS NO DISCO 

Embora o tempo de acesso aos dados nos discos, em 
m6dia, n§o seja grande, ele e reatmente significativo quando 
comparado com o tempo de acesso k memoria semicon- 
dutofB. Quatro fatores bSsicos determinam o tempo ne- 
cess^rio para o acesso aos dados nos discos, sejam dis- 
quetes ou discos rigidos. 

— Tempo de localizapao ou latencia - E o tempo neces- 
sArio para o braco de acesso posicionar-se sobre uma trt- 
Iha em particular. Lembre-se de que o brapo de acesso 
move-se como uma unidade e, no minimo, ele est^ simul- 
taneamente sobre duas trilhas, no caso particular dos dts- 
quetes. 

" Comutapao das cabegas de leitura/escrita - E a ati- 
vagao de uma cabepa de teitura/escrita em particular, so- 
bre uma trilha numa das superficies do disquete. Este 
tempo e degiijfazivel pois d^-se ^ velocidade da corrente 
el6trica. 

-- Intervalo rotacional - Depois de posicionados o bra- 
go de acesso e as cabecas de leitura/escrita, ha um pe- 
queno intervalo de espera ate que o setor na trilha passe 
sob ela. 

- Transferencia dos dados - E a acao de transferir os 
dados entre o armazenamento primario e o local na trilha 
do disco, se.voce esta escrevendo, e da trilha do disco 
para o armazenamento primario se voce est^ executando 
uma operapao de leitura. 

As unidades usuais de tempo acima sao em milissegu 
ndos (1/1. 000s), excetuando a unidade de transferencia dos 
dados que e em bytes por segundo. 

CUIDADOS COM OS DISQUETES 

Qualquer usuario que ja tenha manuseado um disque- 
te, percebe de imediato alguns icones acompanhados de 
algum texto na face posterior da capa externa que o en- 
volve, dando informagoes quanto ao manuseio e conser- 
vagao. Na maior parte das vezes, os usuarios sequer 
dao qualquer atencao a esse tipo de informacao. 

Vejamos por que essas informagoes sao importantes para 
preservar um disquete: 



3 - Nao dobrar ou flexionar o 
disquete. Um disquete empenado nao se ajustar^ adequ- 
adamente na unidade de disco, onde os ajustes sao de pre- 
cisao milim^trica. (Veja a Figura 4). 

4 - Jamais colocar os disquetes proximos a campos 
magneticos. Devido ao fato do disquete ser um meio 
magnetizavel, a aproximag§o de equipamentos ou dlspo- 
sitivos que gerem campos magn6ticos, podera adulterar 
ou mesmo apagar as informagoes 1^ gravadas. A perda 6 
irrecuper^vel, a menos que voce disponha de uma c6pia 
backup (copia de reserva) do disco danificado, de onde 
possa recuperar o que foi perdido. disquete n§o se 
tornar^ imprestSvel se tal fato acontecer, haver^ apenas 
uma perda do conteudo 1^ gravado. Portanto, evite p6r 
seus disquetes em cima ou pr6ximos de caixas de som, 
televisores, im§s, mesas digitalizadoras, tranformadores, 
estabilizadores de tensao e assim por diante. 

5 - Nao exponha os disquetes a temperaturas elevadas. 
A id6ia aquf 6 evitar empenos no disquete, que sao com- 
postos basicamente de plSstico. A temperatura ideal re- 
comendada pelos fabricantes varia de 10° C a 52° C, no m^- 
ximo. Temperaturas pr6ximas do minimo s§o mais 
recomendaveis. 

6 - Insira o disquete na unidade de discos do compu- 
tador cuidadosamente. A pressa continua sendo a ini- 
miga da perfeicao. Devido a abertura de entrada do 
disco ser bem ajustada, falta de habilidade aliada a mo- 
vimentos bruscos poderao tornar seus disquetes empe- 
nados e imprest^veis para uso. 

As recomendacoes acima podem parecer excessivas ^ 
primeira vista, mas nao se iluda, acidentes com disquetes 
com eventuais perdas de valiosas informagoes acontecem 
todo tempo. Cuidados preventtvos sao mais f^ceis de se 
ter que refazer todo um trabalho que levou dias, como um 
capitulo de um livro que estava gravado no disco aciden- 
tado, alem de que a observagao desses cuidados torna-se 
um habito com o passar do tempo. 



CARLOS GONQALVES 6 professor de Introdupao ^ Compu- 
tapao e de Linguagens de Programa^ao do Curso de Compu- 
tagao da UFMA. 
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Tudo Comega com Injormagdo 




K \ PS/2 



USANDO NORTON UTILmES 

Rob Km mm 

O Guia oficial, iliistrado, para o 

NORTON imUTlES 

424 pdgs./Form. 17x24 C6d. 643 

CrS 20.860,00 

mM PC PROBLEMAS E SOLU^OES 

Peter Norton & Robert Jourdain 
Oguia indispensdvel para o 
dia-a-dia do usudrio 

529 pags-ZForm. 17x24 C6d, 658 

CrS 28.280,00 

NOVO GUIA PETER NORTON 

PARA PROGRAMADORES 

DO mM PC 8l PS/2 

Peter Norton & Richard Wilton 

O Guia dejinitivo para a linha 

inteira de computadores IBM PC 

e PS/2 e compativeis 

484 pags./Form, 17x24 C6d. 623 

CrS 27.860,00 

USANDO FREELANCE PLUS 

James G. Meade 

Abrange as versoes 2 e 3- 
Instrugoes Passo a Passo 
Tecnicas avangadas para 

geragdo degrdficos 

238 pags./Fonn. 17x24 C6d, 652 

CrS 22,120.00 

QUE - DICIONARIO DOS 
USUARIOS DE 
MICROCOMPUTADORES 

Bryan Pfaffenberger 
Versdo Portugues-lngles e 
Ingles-Portugues 

572 p5gs./Forni. 12x21 C6d. 705 

CrS 22.260,00 



Editora Campus 

A QUALIDADE AO 
SEU ALCANCE 





USANDO PAGEMAKER 

Rick Sullivan 

Tradugdo da 2* edigdo americana 

298 pags./Form. 17x24 C6d. 646 

CrS 20.580,00 

DESVENDANDO O MACINTOSH 

Peter Noiton & Jim Heid 

Guia para explorara tecnologia 

Macintosh 

624 piigs./Form. 17x24 Cod. 665 

Cr$ 27.860,00 

TUDO SOBRE MICROSOFT 
WORD 5.0 

Hamilton Ziegler 

Um livro totalmente produzido para a 
versdo em portugues do programa. 
216 p5gs./Fomi. 17x24 C6d. 676 

CrS 16.520,00 

GUIA DO DOS 

Peter Norton 

3" Edigdo Americana. Mais de 500 
mil exemplares vendidos no mundo. 
436 pdgs./Form. 17x24 Odd. 645 

CrS 18.620,00 

USANDO NOVELL NETWARE 

Cheryl C. Currid & Craig A, Gilleit 
Tutorial prdtico e referenda de todos 
OS comandos, incluindo um guia para 
localizagdo de erros. 

348 pags./Form. 17x24 C6d. 635 
CrS 17.360,00 

Q BJilora Campus Uda. 

A QUAUDADEDA INFORMATICA 

ttlO DE JANEIRO 

Rua Boroo de Hapoglpe 55 Kio Coirprido CEP 2026 1 
Te\ehne:t02)j29iA443Telax:l02lj32606E[X:PBIt 
FAX: (0211 293-5683 Rio da Janeiro 

SAO PAULO 

Rua da Cansola<:do 348 ICfiConjunlo W2CEPO1302 
Telefone/FAX (0 1 /J 25Q-990 1 Sao Paulo 

FAQA JA O SEU PEDIDO! 




EXPLORANDO WINDOWS 3 

Lori L, Lorenz & R. Michael O'Mara 
O mais abrangente livro sobre o 
Windows 3- 

547 pagsyPonn. 17x24 Cdd. 656 
CrS 25.620,00 

EXPLORANDO PC TOOLS 
DELUXE 6 

Peter Dyson 

Acheseu caminho por entre 

arquiix)s, disquetes e seu disco 

rig idoco mfacilidade 

448 pags./Form. 17x24 C6d. 657 

CrS 23,100,00 

USANDO HARVARD GRAPHICS 

S. Sagman & J.G. Sandlar 
Inst rugoes passo a passo. 
Cenlenas de quadros e grdjicos 
404 pags./Forni. 17x24 Cod. 637 
CrS 22,540,00 

DESVENDANDO O HARDWARE 
DO PC 

winn L. Rosch 

A verdadeira Biblia do Hardware 

552 pags./Form. 17x24 C6d. 633 
CrS 24,640,00 

USANDO MS-DOS 

Van Wolverton 

O Guia do DOS atualizado ate a 

versdo 4.0 • Tradugdo da 4^ 

edigdo americana 

560 pags./Form. 17x24 C6d. 617 

CrS 24.220,00 
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Pregos vaiidos at6 3f/12/9l 



Banco:. 

Nome: 

Enderefo: 

Cidade: 

Estado: 



Desejo receber da Editora Campus o(s) livro(s). 

Anexo cheque no valor total do pedido, 

N° do cheque: 



Cep: 



Assinatura; . 

Se preferir fa^a o pagamento com cartao de aedito sem nenhuni acresdmo. 

Cartao: Val / / 

N°: 

Bradesco e todos os Cartoes VISA 



REMETA SEU PEDIDO PARA: Rua Washington Luiz, 09 - Gr. 403 - RJ - CEP: 20230 



->ECIAL 



Nao use a memoria, use o micro 

Descubra as facilidades e mordomias de uma agenda telefonica. 
Aproveite para aumenfar seus conhecimentos sobre 
programagao em Clipper. 



Vicente Jos6 Moredo 



Este programa tern como objetivo armazenar e orga- 
nizar uma agenda telefdnica pessoal ou at6 mesmo de uma 
empresa. E escrito em Clipper Summer 87. rode com 512 
Kb de memoria e usa opcionalmente uma impressora. 

Foi dividido em modules distrntos, e o c6digo-fonte do 
programa est^ bastante otimizado devido d estrutura de 
programapao utitizada. No arquivo AGEPROC.PRG est§o 
contidas as procedures usadas v^rlas vezes pelos outros 
m6dulos (6 como se acrescent^ssemos uma nova biblio- 
teca de rotinas). 

FUNCIONAMENTO 

O funcionamento do programa 6 simples. Hd um menu 
principal onde est3o as opgoes prim^rias. Sao elas; 

1. AGENDA TELEFONICA - Acessa o modulo de geren- 
ciamento de agenda telefonica. 

1.1 - INSERE NOMES NA AGENDA - t o m6dulo desti- 
nado d inserpSo dos registros no arquivo. Quando selecio- 
nado, chama uma tela de entrada de dados onde apare- 
cem 4 campos: NOME com 15 caracteres; 
ESPECIFICAgAO com 35; TELEFONE com 12 e FAX com 
12 tamb6m. Devido ao ritmo com que as empresas estao 
adotando o FAX, achei interessante colocar um campo para 
ela No entanto este campo pode ser modificado facllmente. 

Quando o campo NOME estiver em branco ou em qu- 
alquer ponto da inserp§o for teclado [ESCl, ou mesmo a 
digitapao estiver completa, o programa pede uma confir- 
map3oo ao usuArio. Este tem que definir se quer (l)nserir 
o registro, (C)orrigi-lo ou (A)nulA-Io. Se for teclado [A] o 
controle volta para o menu principal. Qualquer uma das 
outras alternatives, [C] ou [I], faz com que o programa per- 
gunte se queremos continuar ou n§o. Caso positivo, os 
campos sSo limpos e a inserpSo comepa novamente. Note- 
-se que o registro sd serd inserido se a tecia [I] for pres- 
sionada. 

1.2 - ALTERA REGISTROS DA AGENDA - M6dulo des- 
tinado a alterapao de registros jd inseridos. Existe a pos- 
sibilidade de escoiha do modo com que os registros serao 
procurados e alterados 



• Modulo: A6ENDA.PR6 



t 

» AGENDA v2.0 - ftGENDfl TELEFONICft 

t VICENTE JOSE HORECQ - 07/91 

t BURN BITS INFORHATlCft 

t MODULO FRINCIPftL 

X 

SET BELL OFF 

SET DATE BRITISH 

SET TALK OFF 

SET SCORE OFF 

SETCAHCELt.F.) 

SET PROCEDURE TO A6EPR0C 

SET MESSAGE TO 22 CENTER 

DO VERIFICA 

USE AGENDA INDEX AGENDA 

PUBLIC CERT, CHESPjNOBE, MCA, BE«OTE,CAMINHQ 

MCA=255 

BEMDTE=" 

NaBE=SPACE(14) 

CHESP=SPACE(35) 

0P=1 



CLEAR 

SET COLOR TO M/8,R 

I 10,13 TO 14,64 

SET COLOR TO 

I 11,15 SAV 'AGENDA v2.0 - AGENDA TELEFONICA - BURN BITS 1 

991' 

e 12,24 SAY 'por Vicente Jose lloredD - 07/91' 

« 13,30 SAY 'e CLIPPER Suiier 87' 

INKEY(5} 

DO WHILE .T. 

SET CURSOR OFF 

DO NDLDURA WITH '- MENU PRINCIPAL DE OPERftCOES -' 

e 7,27 PROMPT 'AGENDA TELEFONICA' MESSAGE 'ACESSA HOD 
ULO DE MANUSEIO DE REGISTROS E RELATORIOS' 

« 9,27 PROMPT 'EDITOR DE TEITOS' MESSAGE 'ACESSA MODU 
LO EDITOR DE TEHOS DO SISTEMA' 
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I 11,27 PROMPT XftLENDARIQ" HESSflBE 'ACESSft HODULO DE 
CflLENDfiRIO E CDNTfiBEH DE BIAS ENTRE DATAS' 

13,27 PROMPT 'COMFIGURA ftHBlEHTE' MESSAGE 'ACESSA M 
ENU DE OPCOES DE CDNFISURACAO DE AflBIEKTE' 

g 15,27 PRQflPT 'UTILITARIQS' MESSAGE 'ACESSA ftODULD D 
E LiTILITARIQS E COMANDOS DO DISCO' 

@ 17,27 PROMPT 'FIH DE PROCESSAKENTO' MESSAGE 'RETORNA 

CONTROLE AO SISTEMA OPERfiCIQNAL' 

READ 

MENU TO OP 
DO CASE 
CASE 0P=1 

DO AGEMAN 
CASE 0P=2 

DO ASETEXT 
CASE 0P=3 

DO A6EDATA 
CASE 0P=4 

DO AGECQNF 
CASE 0P=5 

DO AGEUTIL 
CASE OP=S 
EKIT 
ENDCASE 
ENDDO 
CLEAR ALL 
CLEAR 

SET COLOR TO B/« 
% 11,32 TO 14,46 DOUBLE 

1 12.33 SAY ' ATE HAIS! ' 
I 13,33 SAY ' BURN BITS ' 
SET COLOR TO 

SET CURSOR ON 
§ 23,0 
QUIT 



1.2.1 - ALTERA REGISTROS - tnicia uma tela onde pode 
ser alterado um registro por vez, mostrando todos os da- 
dos deste registro. Na parte de cima da tela aparecerS uma 
janela contendo o nOmero total de registros e o numero 
do registro corrente. No meio da tela estS a janela onde 
estar§o as infornnagoes de cada registro e abaixo uma ou- 
tra janela contendo uma linha de comandos que podem 
ser executados pplo mddulo. Os comandos sSo: 

1.2.1.1 - PARA FRENTE - Anda o ponteiro do arquivo 1 
registro para frente. 

1.2.1.2 - PARA TRAS - Anda o ponteiro do arquivo um reg- 
sitro para tr^s. 

1.2.1.3 - PROCURA - Pede um nome ao usudrio e caso o 
registro contendo essejnome exista, move o ponteiro at^ 
ele. Devo lembrar que o Tn6todo de procure 6 escolhido 
pelo pr6prlo usu^rio. Voc§ pode escolher por procura pelo 
arquivo de indexapSo pu por uma "chave" de procura. No 
primeiro mode, aprocura s6 vai funcionar se for digitado 
exatamente o que estlver contido no campo. J^ no segu- 
ndo, a "chave" de procura significa um "pedapo" do nome 
desejado a ser encontrado. EntSo, se vocd digitar "ANA" 
o programa moverS o ponteiro at§ os registros ADRIANA, 



TATIANA e ANA, por exemplo. Hd uma ressalva no se- 
gundo metodo: ele 6 bem mais demorado que o primeiro, 
que 6 praticamente imediato. Ai temos que pesar uma pro- 
cura flexivel com uma procura rSpida. 

1.2.1.4 - ALTERA - Esta 6 a alterapao propriamente dita. 
Na janela central estao os campos do arquivo e as infor- 
magoes de cada registro. Cada campo possui um numero 
no seu comeqo; por este numero o usudrio vai definir o 
que deseja alterar: [1J para NOME; [2] para ESPECIFI- 
CACAO; [3] para TELEFONE e [4] para FAX. Apos digi- 
tado [A], o programa pede o numero do campo; uma vez 
digitado, 6 aberta uma janela de edipao onde estarS o con- 
teudo do campo desejado para alterapSo. usu^rio digita 
e 6 aberta uma janela de edigSo onde estarS o conteCido 
atual do campo escolhido para alterapao. A partir disso 6 
s6 alterar o que Ihe convir e teclar [ENTER]. 

1.2.1.5 - RETDRNA - Retorna ao menu principal. 

1.2.2 - ALTERAR POR JANELA DE EDIQAO - Tamb6m 
serve para alterar os regsitros, mas s6 que desta vez por 
janelas de edipao. Ser§o mostrados os registros em ordem 
de indexapSo, um abaixo do outro, na janela. Tecle [ENTER] 
em cima de um campo para alterS-lo. Este mudarS de cor 
e entao 6 s6 digitar o novo conteudo. Tecle [P] para pro- 
curar um regsitro pelo nome. Terminadas as alterapSes e/ou 
consultas 6 s6 teclar [ESC] para sair da oppao. 



• Modulo: HEI.P.PR6 



t AGENDA v2.0 - AGENDA TELEFONICA 

t BURN BITS INFORMATICA 

t MODULO HELP - AJUOA AQ USUARIO 

t 

SAVE SCREEN TO HELPS 

SET COLOR TO N+/R 

I 5,8 CLEAR TO 21,71 

« 5,8 TO 21,71 DOUBLE 

e 6,18 SAY 'AGENDA - AGENDA TELEFONICA - Versao 2.0' 

SET C 

QLQR TO N/R 

I B,10 SAY 'TECLAS PARA CONTRQLE DE EDICAO E E 

SCOLHA' 

« 9,10 SAY ' — ■ 

« 11 

,10 SAY '[Enter]->Da entrada nos dados ou efetua escolhai 

no5 lenus' 

e 12,10 SAY '[SetaE]->NDviienta barras do lenu ou cursor' 

i 13,10 SAY '[Hole] ->Vai para o inicia do lenu ou caipo' 

5 14,10 SAY '[End] ->Vai para o fii do tenu ou caipo' 

I 15,10 SAY '[( — ] ->Apaga ultiia caractere pre&sionailo' 

6 16,10 SAY '[Ins] ->Liga ou desliga o lodo de inscrcao' 
% 17,10 SAY '[Del] ->Apaga o caracter sob o cursor' 

% 18,10 SAY '[^Y] ->Ap3ga todo o conteudo de ui caipo' 

SET COLOR TO B/U 

% 20,23 SAY 'PRESSIDNE A16UNA TECLA PARA SAIR' 

SET CURSOR OFF 

INKEYiO) 

SET COLOR TO 

RESTORE SCREEN FRON HELPS 

RETURN 
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» * * BURN BITS INFORMATICA m * * 

AGENDA v2.0 - AGENDA TELEFONICA 

LISTAGEM PARCIAL DO ARQUIVO POR NOHE ~ CHAVE="U" 



DATA ATUAL: 0e/:l,0/9J. 



NOME 



ESPECIFICACAO 



TELEFONE 



PAGTNA Ho 1 

FAX 



SALTER UICTOR 
MICENTE HO RE DO 



UIZINHO 

CGLABORADOR DE M:i:CRO-SISTEHAS 



011 950 0606 - - -"- - - 

01 i 913 6400 011 912 0461 



■» TOTAL : P. registros . 



Listagem parcial do arquivo por chave 



1.3 - APAGA REGISTROS DA AGENDA - Utilizado para 
apagar um ou mais registros, este mddulo funciona da se- 
guinte maneira; o programa apresenta as oppoes de pro- 
cura dos registros. O usu^rio pode escolher por NOME, ES- 
PECIFICAQAO e TELEFONE, al6m de poder retornar ao 
menu anterior, pelo campo escolhido. Em seguida e pe- 
dida uma "chave" para procurar os registros que atendam 
h condig§o. As informapoes dos campos NOME, ESPE- 
CIFICACAO e TELEFONE, inerentes ao regsitro, s§o mos- 
tradas em uma janela no meio da tela. Abaixo da janeta 
aparece um pedido de confirmapao "ODER APAGAR ESTE 
(S/N):". Confirmada ou nao a delegSo, o programa salta 
para uma nova pergunta: "CONTINUA PROCURA (S/N):". 
Se for optado por conttnuar, at6 que o ponteiro encontre 
o final do arquivo e toque uma campainha, o programa pro- 
cura registros que atendam a especificap§o. Ap6s termi- 
nada esta operapao, voltamos para o comepo do modulo 
onde novamente e pedida a oppao de procure desejada. 
Se foram escolhidos regsitros para apagar, quando optar 
por retornar ao menu anterior, o programa exibir^ uma men- 
sagem de espera e organizar^ o arquivo sem os regsitros 
apagados. 



• M6dulo: A6EMAN.PRG 



— »> ftGEHflK.PRS 

t 

I ASENDft v2.0 - ftGENDA TELEFONICA 

t BURN BITS INFQRMATICA 

I MODULO HANUSEIO DE REGISTROS 

\ 

0PHAN=1 

DO WHILE .T. 

DO MOLDURfi HITH - flODULQ ftGENDA TELEFONIC 
A - 

e a. 27 PROMPT 'ISSERE REGISTROS NA AGENDA' MESSAGE 'INS 
ERIR RESISTRCS NO ARQUIVO DE IJADOS' 

% 10,27 PROnPT 'ALTERA REGISTROS DA AGENDA' MESSAGE 'AL 
TERAR REGISTROS INSERIDOS NO ARQUIVO DE DADOS' 

« 12,27 PROMPT 'APAGA REGISTROS DA AGENDA' MESSAGE 'APA 
GAR REGISTROS DO ARQUIVO D£ DADOS' 

« 14,27 PROMPT 'EHITE LISTAGENS DO ARQUIVO' HESSASE 'EM 
ITIR LISTftGENS DIVERSAS DO ARQUIVO DE DADOS' 

« 16,27 PROMPT 'RETORNA AO MENU PRINCIPAL' MESSAGE 'RET 
ORNAR AO MENU PRINCIPAL' 

MENL TO QPMAN 



DO CASE 

CASE 9PMAN=1 
DO AGE IN 

CASE QPnAN=2 
0PMENUAL=1 

« 8,24 CLEAR TO lfe,55 
% 10.27 PROMPT 'ALTERAR RESISTRCS' MESSAGE 
'ALTERAR/CONSULTAR REGISTROS UM A UM CON TELA UNICA' 

i 12,27 PROMPT 'ALTERAR PCR JANELA DE EDICAO' 
MESSAGE 'ALTERAR/CONSULTAR REGISTROS POR JANELA DE EDICAO 
8 14,27 PROMPT RETORNA AO MENU ANTERIOR' MESSAGE 
RETORNA AO MENU ANTERIOR' 
flENU TO OPMENUAL 
IF CPMENUAL^i 
DC AGEALl 
ELSEIF 0PMEN'JAL=2 

DO fiGEAL2 
ELSEIF 0PM£NUAL=3 
LOOP 

end:? 
case 0pi1an=3 

DC AGEPA 
CASE 0FMAN=4 
DO AGERE 1 
CASE 0PMAN=5 
EUT 
ENDCASE 
ENDDO 



1.4 - EMITE LISTAGENS DO ARQUIVO - E este m6dulo 
que vai fornecer ao usufirio as informapoes gerais da sua 
agenda. Nele estSo disponiveis as oppoes de LISTAGEM 
INTEGRAL DO ARQUIVO, LISTAGEM PARCIAL POR 
NOME e LISTAGEM PARCIAL POR TELEFONE. Na pri- 
meira o programa lista a agenda inteira sem restripoes. J^ 
na segunda ele pede uma "chave" de procura que nada 
mais 6 do que as iniciais do NOME que voc6 gostaria de 
listar. Na teceira, o programa pede um prefixo ou mesmo 
um telefone desejado para listar. Isto quer dizer que se o 
usu^rio digitar "Oil 299" serSo impresses os registros com 
"Oil 299 1765" e "Oil 299 0101", por exemplo. No final de 
todas as listagens 6 tmpresso o numero de registros listados. 
Em todas as listagens sao impresses o NOME, a ES- 
PECIFICAQAO, o TELEFONE e o possivel FAX. 
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n AMAZONIA 

adventure texto 12.480.001 



i*i*l3 <tl-| 



InformStica e Edttora Ltda 



n SERRA PELADA 

adventure texto 12,480,00 1 



PC 



Langamento especial: 

MSPC Listagens ■ coletSnea dos melhores programas publicados 
na revista MICRO SISTEMAS, da edi^So 97 at^ a edi<;3o W6. 
Ao todo sSo J6 programas. gravados em 3 discos. Cada pro- 
grama ocupa um direforio. SSo eles: 

Gerenciador de arquivos MS 97 

Calculo de diferen(a entre dalas MS 99 

Cadasfro de iuncionarios MS 100 

quenos utilWios MS 103 

Ponha uma virgula no teclado MS 103 

Memoriaa vista MS 103 

Uma vacina tnplice MS 104 

Di um feedbacl< ao teclado MS 104 

Como renomear diret&ios MS 104 

Uma entrada de dados MS 104 

Do video p/impressofa MS 104 

Do clipper p/o Cobol MS 105 

compac ^^p Serenata MS 105 

compactador 22,200,00 ^^^ Numeros rdnddmicos . MS 105 

Prog tempo cerlo .. MS 106 
Diario de miao . MS 106 

D Crt 5.980,00 

U PRO KIT edrtor 3.4 

editor de adventures ... 44,870,00 



D D GRAPHOS III- editor gr^co 

n D GRAPHOS PRO ■ ed, g/^f. prof. .,.. 

G □ MODUlOTiLAS- editor detebs., 

D D MOOULO LfTRAS - lelras/shapes „ 

D D MdDULOPRINTER-tabelas/impres, 

D □ Wfebetos 1 ■ banco de leiras 

D n Telas 1 - banco de telas 

Q D Shapes 1 - banco de figuras 

D n Racote 1 - figuras, tables, atfabetos 



PRO KIT apper - editor de discos Cr5 

□ PRO KIT scanner ■ capturador de figuras CrS 

G PRO KIT files- gerenciador de discos... CrS 

D PRO KIT rot-ll - utilitario p/m6dulos CrS 

D PRO KIT form'at ■ formatador especial , . CrS 

D PRO KIT topview - editor de animagfies CrS 




PROGRAMAS PARA MSX 



21,450,C 
21.450,00 

21.450,00 
21,450,00 
21.450,00 
21.450,00 



1 EDITOR 3.4 ■ editor de adventures CfS 24.440,00 

i; AMAZOnIA - adventure texto CrS 12.480,00 

r SERRA PELADA - adventure texto CrS 12,480,00 

Z Digital BOOK 1 - livfo eletrfinico CrS 11,800,00 

ATENpAO: Os programas da s^rie PRO KIT e os adventures sSo com- 
pativeis com o padrfo MSX de acesso ao drive por portas (interfaces 
Microsol, TPX, DMXe Expand], Estio fora desse ped^o e portanto 
nao funcionarao perfeilamente nas seguintes interfaces: DDX 2.0, 
SHARP, LEOPARD e EXPERT DDPLUS, 



COMO FAZER SEU PEDIDO: 



Os programas da PRO KIT para 
PC sSo compatfveis com mi- 
cros XT / AT, 512 Kbytes 
(m(nimo) de RAM, placa gr&- 
fica CGA e monitor monocro- 
mdtico. 



Marque os programas que 

deseja receber em sua casa e preencha o 

cupom abaixo de forma leglvel. Anexe um . 

cheque nominal i PRO KIT Informitica ' 

e Editors Ltda, no valor total do pedido, e remeta para a Caixa Postal 108.046, 

Cep 24120, Niterdi - RJ. Seu pedido sera prontamente atendido. 



Nome: 



Enderefo: 

Cidade: 

Cep: 



UF: 



Cheque n": 



Valor CrS 



1.5 - RETORNA AO MENU PRINCIPAL Retorna ao menu 
principal. 

2. EDITOR DE TEXTOS - Acessa o editor de textos do pro- 
grama, Este editor e destinado para textos em ASCII. 
menu de opcoes do editor contem: 



structure For cJatabase: C ; AGENIiA\AGENi:iA . dbP 
NumbsM- af data recovcl^i 119 

Date of last update : 06/2«/91 

Field Field Name; Tyr£> Width OiT- 

i NOME Character 15 

2 ESPECir Character 3S 

3 TELEF CharactKr 12 
A FAX Characte)- Ic'. 



"K Total *» 



75 



Estrutura do arquivo AGENDA. DBF 

2.1 - P/ EDITOR -t^assa para a tela deedtcao que eo editor 
de textos propriamente dtto. 

2.2 - LER ARQUIVO - Carrega urn arquivo do disco na me- 
moria do editor, lembrando que o que estiver na memoria 
serci apagado. 

2.3 - GRAVAR ARQUIVO - Grava o conteuao atual da me- 
moria em um arquivo do disco. 

2.4 - SOMAR - Adiciona ao conteudo atual da memoria 
conteudo de um arquivo em disco. 

2.5 - LIMPAR - Limpa a memoria atual do editor. 

2.6 - DIRETORIO - Exibe o diretorio do disco. 

2.7 - RETORNA - Retorna ao menu principal. 

3. CALENDARIO - Acessa o modulo de calend^rio do 
AGENDA. E bom lembrar que este modulo nao imprimir^ 
calendcirios, na impressora, de um determinado mes ou ano. 
E uma simples consulta de datas na tela. 

3.1 - DIFERENCA ENTRE DATAS - Voce digita uma data 
Inicial e uma data final. programa Ihe retorna a diferenca 
em dias que existe entre essas datas. Exempio: 02/10/91 
e 23/10/91 retorna 21. 
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- NOHILO ALIOtR RZCISIFOS - 



ftWUIUO Tffl n MGISTWS. HGISIM fllUflL; 23 



[DNCm: VICINIIWUiK 

[JlESPICIFICltCKO: COUKMMK it HICltO-SISTIWS 

[3iTEiiroffi: ail m dm nmt: ni m m61 



IMWiajHH FUltA IMS FROCUH) RLTEXA mORtt 



vmttw. 



tWUE Mlim K AMUIUO UN RKISTRO FA»I nCDftE 



Alteracao pro registros 

26 MICRO SISTEMAS 



Modulo: AGEPROC.PRG 



— .} ABEPfiQC.FSG 

t AGENDA .2.0 - AGENDfi TELEFONICA 

t Br^'tt HT5 INf^ORMfiTICA 

t fiRQUWG DE PROCEDURES 

1 

PRGCED'..RE !^,CLDURA 

PARAflElEP, TITULG 



ClEAi; 

SET CQLOR'TQ B/W 

e 0,0 TO 24.79 

SET C0L3R TO W+ 

e 1,: SfiV 3FACEi23H'AGE'lDA v2,0 - c 

mi FITS i9'?r+spfiCE(:^) 

i 4.2 5aV 5PHCt(33-:LEN{TlTUL01/211+TITJLG+SPACEf38-:LE 
NiTITyLOl/Zli 
3ET CCLQR TO 
% 2.2 TO 20.77 
§ 3,3 TO 5.76 
3 20.3 SAY ■flEMSftSEtl: 
« 21,2 TO 23,77 
RETURN 

FRCCEDURE CENTRC 
rMr\Mncicra Lii^nH.t'imoH 
% 22.3 SAi 5PACE:73) 
■^=LENiHENSA) 
3E1 COLOR TO W+ 
e LIMKA.39-(X/21 SAY MEN3A 
SET COLOR TO 
RETURN 
PROCEDURE VERIFICA 

IF .NOT. FiLECAGENDA.,^Tr i 
CLEAR 

SET COLOR TO fe+ 
S 23,1 m XRIANDO INDICE 
.SET COLOR TG 
USE AGENDA 
IF DOSERRQROOO 
CLEAR 

SET COLOR TO «+ 

■■ 'ERSO NA CONFIGORACAO DG SISTE^A' FAVOR VERIFIC 
AR ARQUI'/05 DE DADOS.' 
SET COLOR TO 
QUIT 
£*JDIF 

INDEX CN NCflE TO AGENDA 
'J5E 
EMDIF 

PROCEDURE HOSTRfi 
SET CDLuR TO W+ 
e 10,12 3AY ■U3«GMt! 
,§ 12.12 SAY ■[2jESPECIFICACflOi 
g 14,, 12 SAV 't3]TEL'LF0NE:' 
a 14. 4C SAY- 'l4]FAK:' 
SET COLOR TO 



SOLAR INFORMATICA 
SORWARES & HADWARES 



PC XT/AT 
MSX 

1/2/2 + 



688 ATTACK SUB II 

ALTERED BEAST 

ASTERIX 

BAAL (VIDEO EGA/VGA) 

BALLISTIX 

BATTLE HAWKS 1942 

BATTLE OF BRITAIN 

CABAL 

CALL OF ARMS 

CAPITAN TRUENO 

CARMEM SAN DIEGO WORLD 

CAHMEM SAN DIEGO EUROPE 

CARMEM SAN DIEGO TIME 

CASTLE VAN I A 

CENTURION (VIDEO EGA/VGA) 

CHARLIE CHAPLIN 

CODENAME: ICE MAM 

COMBAT COURSE 

CONQUEST OF CAMELOT 

CONTRA 

CRIME WAVE {VIDEO EGA/VGA) 

DARK CASTLE 

DAVID WOLF SECRET AGENT 

DAYS OF THUNDER 

DONI GO ALONE 

DRAGON STRICK 

DRAGON SLAIERS I 

EARL WEAVER BASEBAL 

ELITE 

EXOLON 

EYE Of THE BEHOLDER 

F 15 STRfCK EAGLE I 

F 15 STRICK EAGLE II 

F 16 COMBAT PILOT 

F 19 STEALTH FIGHT 

FACE OFF HOCKEY 

FACES 

FIRE POWER 

FREEOY HARDEST 

FUTURE WARS 

GAMES WINDOWS 3,0 

GAUNTLET I 

GAUNTLET II 

GHOST BUSTERS II 

GOLD RUSH 

GOLDEN AXE 

GP CIRCUIT. DISK CGA 

GP CIRCUIT -DISK EGA 

GRAVE YEAROAGE 

GROVER ANIMAL ADVENTURE 



(2) 
(2) 
(2) 
(3) 
(1) 
(2) 
W 
(2) 
(1) 
(1) 

81 

(3) 
(2) 
(3) 
(1) 
(9) 
(1) 
(10) 

(1) 
(8) 

i§ 

(3) 
(2) 
(4) 
(13) 
(1) 
(1) 
(2) 
(5) 
(1) 

i 

(3) 
(2) 
(1) 
(2) 
(1) 
(3) 
ID 
(1) 
(2) 

(2) 
(1) 
(1) 
(2) 
(1) 



JOGOS PC XT/AT 



HARLEY DAVIDSON 

HEAVY METAL 

HEROES OF THE LANCE 

HEROES QUEST I 

HILLS FAIR 

HOSTAGES 

IF IT MOVES SHOOT IT 

IMPOSSIBLE MISSION II 

INDIANA JONES IN TEMPLE 

INDIANA JONES CRUZADE ACAO 

INDIANA JONES CRUZADE ADV 

INDY 500 MILES 

JOE MONTANA FOOTBALL 

KING QUEST II AO IV 

LAKERS X CELTICS 

LAST NINJA I 

LAST NINJA II 

LEISURE LARRY I AO III 

LHX ATTACK CHOPPER 

LIFE & DEATH I 

LODE RUNNER 

lOWeLOWBOXXING 

MAD MIX 

MANIAC MANSION ATUAUZAOO 

MENACE (VIDEO EGAA'GA) 

MICKEY MOUSE 

MISTERY MASTER 

NIGHT SHIFT (VIDEO EGA/VGA) 

NUCLEAR WAR 

OLIVER AND COMPANY 

OVERLORD (VIDEO EGAA'GA) 

PRINCE OF PERSIA 

RASTAN SAGAN 

RENEGADE 

RISK OF WAR 

ROAD RUNNER (PAPA LEGUAS) 

SENTINELS WORLDS FUTURE 

SIMBA AND THRONE OF FALCON 

SPACE QUEST I AO II 

SPACE ROGUE 

STAR DEFENSER (VIDEO EGA/VGA) 

STAR GOOSE 

STAR MOViK 

STAR TRECK INTERPRISE 

STAR TRECK V (VIDEO EGA/VGA) 

STELAR 7 

STELL TUNDER 

STREET FIGHTG MAN 



(2) 
(1) 
(3) 

(10) 
(2) 
(1) 
(3) 
(1) 
(1) 
(2) 
(6) 
(2) 
(5) 

(Ml 
{2j 
(2) 
(2) 

(16) 
(2) 
(2) 
(1) 
(3) 
(1) 
(2) 
(2) 
(2) 
(1) 
(4) 
(2) 
[2) 
(5) 
(2) 
(2) 
(1) 
(2) 

(2) 
(11) 
(2) 
(1) 
(1) 
(3) 
'1) 
(5) 
(2) 

ill 



CX.POSTAL 11743 

CEP. 05090 - SAO PAULO - SP 

FONE (Oil) 833-9355 



STREET ROD I 

STREET ROD II 

STRINER 

STUNT DRIVER 

STUNTS 

SUPER HANG ON 

TAKE DOWN 

TEENAGE MUTANT TURTLES NINJA I 

TEST DRIVE I 

TEST DRIVE II 

TEST DRIVE II (VIDEO EGAA'GA) 

THEANCIETOFWARINSEA 

THEBOOKOFMOEBIU 

THEXDER I 

THEXOER II 

TITANIC 

TRACON II 

TUNNELS OF ARMAGEDON 

ULTIMA V 

VIAGEM AO CENTRO DA TERRA 

WEIRD DREAMS 

WOROFFS PINBALL[VIDEO EGAA'GA) 

XADREZ PARA WINDOWS 

XENON II 

ZAC MAC KRAKEN 

ETC ... 



(3) 
(4) 
(1) 
(4) 
(4) 
(1) 
(3) 

fi 

(2) 
(3) 
(1) 
(2) 
(1) 
(3) 
(2) 
(3) 
(2) 

n 

(2) 
(1) 
(1) 
(3) 
(2) 



JOGOS 1.2 HD 



HEART Of CHINA 
JONE IN THE FAST [AHE 
SPACE QUEST IV 
WING COMMANDER I 



(8 

h) 

(6) 

(3) 



BREVE: WING COMMANDER II, PRINCE OF PERSIA II, 
MOON WALKER, GP MONACO, ETC. 



ATENCAO — OS NUMEROS ENTRE PARENTE- 
SES INDICAM QUANTOS DISCOS CADA JOGO 
OCUPA, PARA OBT^R VALOR MULTIPLIQUE 
MESMO PELD NUMERO DE DISCOS. 



APLICATIVOS DOMfNIO PUBLICO 



AGENDA PESSOAL (1) AGENDA DE TELEFONES E COMPRO- 
MISSOS EM PORTUGUES ATLAS PC (>) MAPA E INFORMA- 
gOES DOS CONTINENTES E SEUS RAISES COPY II PC V7.0 
(1) COPIADOR DE DISCOS CURSO WS 2000 (1) APRENDA 
TODAS AS FUNgOES BASICAS DESTE EDITOR DE TEXTOS 



DELL TEST (1) TESTE DE MICRO E SEUS PERIF^RICOS LO- 
TUS TUTOR (1) ENSINA TODOS OS COMANDOS DO LOTUS 
1. 2, 3 MONOGRAFIX (1) EDITOR DE TEXTOS PC KEIDRAW 
(5) OTIMO EDITOR DE GRAFICOS COM MUITOS RECURSOS 
TEMOS MUITOS OUTROS TITULOS. 



MSX CENTER 

• JOGOS & APLICATIVOS PARA MSX 1, MSX 2, MSX 2 PLUS. 

• ULTIMOS LANgAMENTOS DO JAPAO E EUROPA. 

• REVENDA ANGEISA , A.CV.S^ TRANSFORMAgOES EM MI- 
CROS MSX 2.0+. DRIVES 5 1/4 E 3 1/2 360 K OU 720 K. 

• DIVERSOS— MEGA RAM 256K. MODEM, INTERFACE DRI- 
VE. FORMULARIOS, ETIQUETAS, ETC. 

• EXPERT BOOK PLUS— LIVRO COM DICAS IMEDIATAS DE JO- 
GOS MSX 1/2/2 PLUS. 

SOLICITE CATALOGO. ESPECIFIQUE MICRO 



ATENDEMOS PELD SEDEX A COBRAR— FAQA SEU PEDIDO 
POR CARTA OU TELEFONE, E RECEBA E PAGUE NO COR- 
REIO MAIS PERTO DE SUA CASA. 



CATALOGO ELETRONICO PC XT/AT 

2 DiSQUETES CONTENDO TODA A NOSSA RELAgAO DE JOGOS E APLICATIVOS 
POR CATEGORIA E COM DESCRigAO, RELACAO DE MANUAIS E SENHAS QUE DIS- 
POMOS, EQUIPAMENTOS E SUPRIMENTOS QUE COMERCIALIZAMOS, E AINDA 
JORNAL HOTLINE — PC NEWS ONDE VOCE ENCONTRA AS MAIS INCRIVEIS 
DICAS DE JOGOS, INFORMAgOES SOBRE MERCADO, PROGRAMAS E MUITO 
MAIS. TUDO ISSO NA TELA DO SEU MICRO. 

TAXA DE ENVIO: REFERENTE A DISCOS E DESPESAS: Cr$ 1.700,00 OU SE PRE- 
FERIR TRAGA 2 (DOIS) DISCOS EM NOSSA LOJA E SERA GRATUITO. 
EQUIPAMENTD NECESSARIO: 2 DRIVES OU WINCHESTER, VIDEO CGA, E IM- 
PRESSORA (OPCIONAL) PARA IMPRESSAO DE LISTA E PEDIDOS. TEMOS TAM- 
BEM CATALOGO GRATIS. 
VALIDADE NOVEMBRO-DEZEMBHO/91. (RECORTE OU TIRE XEROX E ENVIE) 

NOME; . ^ 

END, , „ 



CIDADE: 
ESTADO-. 



PROFISSAO: 



EQUIPAMENTO:, 



i 10,21 5AY mm 

§ i:.30 SAY tSPECIF 
« U,25 SftY TELEF 
I 14,48 SfiY FAX 
RETURN 

!^ROCECURE CftBECA 
FARAHETER DEB 
IF OPSftUT 
? CHR(27)*'E' 

V SFACEdfal + 't t I BURU BITS INFCRHATICft t 
t t 

7 SPACE(23)+' AGENDA v2.0 - ASENDA TELEFONICA' 
? SPACE(3"f-(LEN(DEBl/2))+DEB 
?? CHR(27)tT' 
ELSE 

? SPACE|161+'l I I BURN BITS IHFQR1ATICA t 
t t 

-> SPAC£(231*'ft6ENDA v2.0 - A6ENDA TELEFONICA' 
? 5PACE(39-(LEN(DEB)/2ntDEB 
END IF 

PHbflE=PHUI1E+l 
RETURN 

PROCEDURE SINAL 
SET COLOR TO M+/R 
fi U,2fe TO 13,52 

I 12,27 SAY 'RE6ISTR0 NAO ENCONTRADQ !' 
SET COLOR TO 
INKEY(3) 
RETURN 

PROCEDURE NEXISTE 
SET COLOR TO H/R 
% 11.26 TD 13.51 

« 12,27 SAY 'ARQUIVO NAO ENCONTRADQ !' 
SET COLOR TO 
INt;EY(3) 
RETURN 

PROCEDURE AVIALTE 

DO CENTRO KITH 22,'TECLE [ENTER] ALTERAR, [P] PARA PROCURA 
R POR NOHE, [ESC] PARA SAIR' 
RETURN 



3.2 - SOMA DE DIAS EM UMA DATA - Voce digita uma 
data desejada e um certo numero de dias a ser adicJQnado 
a esta data. O programa retorna a data vigente e at) ter- 
mino dos dias digitados. 

3.3 - SUBTRAI DIAS DE UMA DATA - Digita-se uma data 
e um certo numero de dias a serem subtraidos desta data. 
E retomado a data vigente a "X" dias atr^s. 

3.4 - Dl A DA SEM AN A - Retoma o dia da semana de utria 
data qualquer digitada. 

3.5 - RETORNA - Retorna ao thenuianncipal. 

4. CONFIGURA AMBIENTE - Acessa o m6dulo para con- 
figuragSes de ambiente de trabalho. Nota: a) todas as 
opp5es de configurapcio possuem uma pequena explicap§o 
antes de confirmar asmudanpas; b) as mudanpas efetua- 
das s3o apenas tempordrias (enquanto o programa estiver 



na mem6ria). Caso queira modific6-las permanentemente, 
deve-se alterar o codigo fonte. 

4.1 - CAMPAINHA ON/OFF - Escoihe se a campainha do 
Clipper serd tocada toda vez que um campo de digitapao 
for preenchido. default 6 OFF. 

4.2 - MOSTRA (INSERT) - Detxa d mostra ou nSo a pa- 
lavra (INSERT) no canto direito superior da tela, quando 
esta funpao estiver ativa. default 6 nSo mostrar. 



imttivi.i- BUMtBits mi 

- NOMILO DirOR DI TDaW — 



LinhilU ColwilM ConfifWNii ftn spcnt cm 



JSS GOllUlU, 



NONE SO >wllnlo: (IHniifiaM 



fmim m mma maMmmi ^mfi umf. DimoRio mom 



WKACn; 



mUA Hmm N NDHltlil W DISCO E (IRnORIO ATUfllS 



Editor de textos ASCII 

4.3 - NUMERO DE COLUNAS DO EDITOR - Modtfica o 
numero de colunas que o editor de textos vai trabalhar e 
tabulas as linhas. 

4.4 - ESCOLHE FILTRO DO ARQUIVO - Esta oppgo torna 
o programa flexivel o suficiente para efetuar qualquer tipo 
de procura e escoiha de registros. usucirio escoihe uma 
palavra ou parte de uma palavra desejada para constarden- 
tro do campo ESPECIFICAQAO. Se esta condipSo existir 
em algum registro do arquivo, o Clipper filtra o arquivo de 
dados de mode que apenas constem regsitros que aten- 
dam a tal condip§o. 

For exempio, escolher a palavra "CONSTRUTORA" 
como filtro farS com que nas listagens gerais, alterap5es, 
etc so aparepam registros que tenham esta palavra no 
campo ESPECIFICAQAO. Isto multiplica por dois a capa- 
cidade de triagem do programa. 

4.5 - RETORNA AO MENU PRINCIPAL - Retorna ao menu 
principal. 



Modixlo: AGEIN.PRG 



( AGENDA v2.0 - AGEHDA TELEFONICA 

t BURN BITS INFQRMATICfl 

t HQDULO INSERE 

t 

DO WHILE .T. 

DO MOLDURA WITH '- MODULO INSERE REBISTROS -' 

DO CENTRO WITH 22,'INSIRA OS DADG3 CORRETAHENTE - CONFI 

nnt urcfVMLhU 

e i,13 TG 16,66 
'J0=SPACE(151 



28 MICRO SISTEMAS 



TE=3PACE(12) 
F;=SFfiCEI12) 
SESP=T 

& S,15 SAY 'NOME:' SET NO 

i 10,15 SftY ■ESFECIFICACAO:' GET ES 

? 12.15 SAY TELEFQHE:' GET TE 

S 14,15 SAY 'FAX:' GET FA 

SET CURSOR GN 

READ 

SET CURSOR OFF 

NO=UFPER(NO! 

Eb=LPPER(ES) 

IF LA5TKEY()=27 

EKIT 
EUDIF 
!F ND=SPACEa51 

7 CHRi/l 

LOOP 
ENDIF 
IF Ffi=SPfiCE(12) 

Ffi= 

END IF 

30 CENTRO WITH 22/[I] INSERE ftEEISTRC - [C] CORRIGE DA 
DOS - [Aj ANllLA INSERCfiO' 
I 17,18 TO l?.fa2 

§ 18,20 SAY -illNSERE, iCiORRIGE CO (A)NUlA (i/C/Ai:' 3 
ET RESF PICTURE "" 
SET CURSOR ON 
READ 

3tl CyPSDR DFF 
IF RESP='C' 

LOOP 
ENDiF 
IF RESF='A' 

EUT 
END IF 
IF RESP=T 

APPEND ELANf 

REPLACE NQUE WITH NO 

REPLACE E3PECIF hPH E3 

REPLACE TE.EF WITH TE 

REPLACE FAS iklTH FA 
END IF 

00 CENTRO '/ilTH 22, 'IS] CGNTINUfi INSERINDG - [N] RtTCRNA 
AO r.EN'J PRINCIPAL' 
g 20.25 'G 22. fl 
S 21.27 SAY 'QUER CCNTINUAR (5/N);' SET COSN FICTLRE ". 

SET CL.R5DR ON 

READ 

SE" CURSCR OFF 

IF C0SN='3' 

LOOP 
ELSE 

EXIT 
END IF 
ENliDG 



5. UTILITARIOS - Acessa o modulo de utilitarios do sis- 
tema, onde voce encontar^ as opcoes de EXIBIR 
DIRETORIOS, COMANDO do DOS, DELETAR AROUI- 
VOS, RENOMAEAR ARQUIVOS, FORMATAR DISCO E 
RETORNA, lembrando que para a opcao FORMATAR 
DISCO funcionar e necessario que o arquivo FORM AT.COM 
do DOS esteja no diretorio corrente. 

6. FIM DE PROCESSAMENTO - Flm do programa. con- 
trole volta para o PROMPT do DOS. 

instala<;:ao 

A instalap3o do programa e bem simples, e a primeira 
coisa a fazer e criar a estrutura do arquivo AGENDA. DBF. 
Sua listagem segue anexa ao codigo-fonte. O arquivo de 
indice AGENDA. NDX e criado automatimente pelo pro- 
grama toda vez que nao se encontrar no diretorio corrente. 

NOTA: EXEMPLO DE COMPILACAO E LINK-EDtCAO 

CLIPPER AGENDA/HELP 

CLIPPER AGENDA/AGENDA 

TLINK 

AGENDA + HELP,AGENDA/AGENDA„CLIPPER + EXTEND 



VICENTE JOSE MOREDO cursa Andlise de Sistemas na Uni- 
varaidad* Pwilista - UNIR Possui urn PC XT e pnagrama em Clip- 
per, dBase III, Pascal e Basic. 



• Modulo: A6EDATA.PR6 



X A3ENDA v2.0 - AGENDA TELEFOMCA 

1 BURN BITS INFORHATIlA 

i "MODULO CALENDAR ID 

» 

GPDA^A=: 

D3 WHILE .T. 

DO MGLEURA WIT^^ '- fiDDULO CALENDARID -' 

§ 8.27 FRQKPT DIFERENCA ENTRE DATA3' flESSASE flGSTRA A 
DIFEF.ENCA Efl CUS DE ^AS DATAS LIGITADAS' 

S 10,27 PROrPT '3D1A DE CIAS EK :J!^A DATA' MESSAGE 'ADIC 
iONA n DIA5 A U^A DATA E RETORNA A DATA RESULTAME 

a 12.27 PFOHFT 'SOBTRA: DIAS Dl UtlA DATA' MESSAGE ' 3UBT 
^AI r: DIAS DE UHA LATA i RE^QRNA A DATA.RESilLTANTE' 

€ : 
4,1^ pF;jf1PT DIA DA SEMANA' ^lESSAGE 'RETuRNA DIA DA SEtIA 
Nfi QOE CAIRA Eti OHA DATA DADA' 

* li,:7 FRO'lfT ^RETOPNA 
AG ^lENU PRINCIFAL' MESS 
AGS PETOPNA AG JIENU FRiNCIFAL 

mi\i '1 QPDATA 

CO CASE 

CASE 0!^-DATA=l 

i:i=£;TEn 

i._-Urt ■ C! .1 

s 7.2: CLEAR TO 17. M 

DO CENTRG WITH 22,'CIGITE AS DATAS DE3EJSDAS PARA CA 
LCLLAR A DIFERENCA-' 

§ It. 25 TO 14.50 

% 11.27 SAY DATA INICIAL:' SET U ' 



MICRO SISTEMAS 29 



i i:,27 SAY DfiTfi FINAL: ' SET 02 
SET CURSOR ON 
READ 

§ 15.23 TO 17.53 

« li.25 SaV 'DIFERENCft: ' +5TR(D2-D1 i*' DIAiS';' 
DO CENTRO Um 22,'TECLE fiLBC PARA CONTINLJAR . . .' 
INKEY(IOO) 
SET CURSOR OFF 
CASE 0FDATA=2 
Dl=!)ATEil 
N1=0 

i 7.23 CLEAR TO 17,51 

DO CENTRO KITH 22.'DIBITE A DATA DESEJADA PARA SER 3 
OHADA can OS DIAS' 

e 10,25 TC 14,51 

« 11.27 SAY 'DATA DE5EJAEA;' SET Dl 
« 13.27 SAY 'No. DE DIAS:' SET Nl PICTURE ■9999r 
SET CURSOR ON 
READ 

« 15,23 TO 17,53 

« lii.25 SAY -DATA RESULTANTE: -tDTQCIDl+Nl) 
DO CENTRD MITH 22.'TEC1.E ALSO PARA CQNTINUAR . . .' 
INKEYUOO) 
SET CURSOR OFF 
CASE 0P&ATA=3 
D1=DATE(1 
H1=0 

e 7.23 CLEAR TO 17.51 

DO CENTRO KITH 22,'DIGiTE A DATA DESEJADA PARA SER £ 
UsTRAIDA DOS DIAS' 

3 10.25 TO 14,51 

i 11,27 SAY 'DATA DESEJADA: ' SET Dl 
« 13.27 SAY 'No. DE DIAS:' SET Hi PICTURE ■99999' 
SET CURSOR GN 
READ 

t 15,23 TO 17.53 

« 16,25 SAY -DATA RESULTANTE: ■+DT0C(D1-NU 
DO CENTRO WITH 22,'TECLE ALSO PARA CONTINUftR . . .' 
INKEY(IOO) 
SET CURSOR OFF 
CASE 0FDflTA=4 
D1=DATE() 

i 7,23 CLEAR TO 17,51 

DC CENTRO WITH 22,-DI6ITE A DATA DESEJADA PARA RETOR 
NAR DIA DA 5EI1ANA' 
e 10.25 TO 12,51 

« a. 27 SAY -DATA DESEJADA:' GET Dl 
SET CURSOR ON 
READ 

D2=CDDM(D1) 
IF D2='5tindav' 

D2='I}0niNED' 
ELSEIF D2='Nonday' 

D2='SEGUNDA-FEIRA' 
ELSEIF D2='TLie5day' 

D2='TERCA-FEIRA' 
ELSEIF D2='MednE5day' 

D2='DUARTA-FEIRA' 
ELSEIF D2=' Thursday' 



j2= GUINTA-FEIRA' 




ELSEIF D2='FriJav' 




D2='SE)!TA-FEIRA' 




ELSEiF 02='3dturda/ 




D2= SAt'ADC 




END IF 




g 15.23 TO 17.55 




8 U.25 SAY 'DiA DA SEnANAi '+D2 




DO CENTRO WITH 22. TEClE ALSO PARA CONTINUAR , 


' 


INf-:EY1100; 




SET CURSOR OF^ 




CASE 0P0ATA=5 




EN DC AS E 




ENDDC 





Modulo: AGECONF.PRG 



t ASENDA v2,0 - AGENDA TELEFONICA 

t BURN 3IT5 INFORMATICA 

t PIODULQ CONFIGURA AflfilENTE 

1 

DO WHILE .1. 

OPCQNF=i 

DO rtOLDURA WITH '- MODULO Dt CONFIGURACAO DE AMBIENTE - 

% B,23 PROMPT 'CAMPAINHA CN/OFF' MESSAGE ATIVA/DESATI7 
A CAMPAINHA DE AVISO' 

§ 10,23 PROMPT 'MCSTRA (INSERT)' MESSAGE 'LIGA/DESLIGA 
MOSTRADOR DE ESTADO DO TECLADG' 

f 12.23 PROMPT 'N'JMERO CE COLUNAS DO EDITOR MESSAGE 'E 
SCOlnt NUMERQ DE COLUNAS POR LINHA QUE EDITOR UTiLIZAR 
A' 

% 14,23 PROUPT 'ESCGLHE FILTRG do ARQUIVO' MESSAGE ' 
SELECIGNfi FILTRO DE ARuUIvO PARA PESQUISftS' 

g 16.23 PROMPT 'RETORNA AO MENU PRINCIPAL' MESSAGE 'RE 
TORNA fiO MENU PRINCIPAL' 
MENU TO CPCGNF 
IF 0PCONF=i 
CAMPQF='N' 

8 9.20 CLEAR TO 16.60 

DO CENTRO WITH 22. 'iS] PARA LIGAR CAMPAINHA - [N] FA 
RA DESLIGAR' 

■5 9,15 SAY 'ESTA GPCAD DEUA ATIVA. OU NAD, A CAMPAI 
NHA PADRAO' 

§ 10,15 SAY DO CLIPPER. 5E ESTA ESTIVER LIGADA. 
UM "BEEP" 

% 11.15 SAY 'SERA OliVIDO PELO GPERADCR TODA VEI QU 
E ELE PREN-- 

e 12,15 SAV 'CHER TOTALMENTE UH CAMPD DE EDICAO OU E 
SCQLHA. 

% 16,28 TO 18,43 

§ 17,30 SAY 'LI6fi(S/N):' GET C6MP0F PICTURE "' 
SET CURSOR ON' 
READ 

SET CORSOfi OFF 
IF CAMPQF='S' 
SET BELL ON 



30 MICRO SISTEMAS 




\^^mu^- 



A TEH inFDRdlfiTICfl TEM UMA 
GRANDE NOVIDADE PARA VOCE! 



Tendo sido desenvolvido de modo a com- 

petir no sofislicado mercado inlernacio- 

nal de Sistemas Operacionais para micro- 

coniputadores de 32 bits, o Sistema Vir- 

tuOS 386 foi projetado para o aproveita 

memo integral da arquitetura interna e do 

poder de processamento dos microproces- 

sadores INTEL 80386 e 80486, trazendo 

ao cenario das aplicai^Oes profissionais a 

efetiva utilizacao dos conceitos "multiu- 

suario", "muliitarefa" e de "maquinas ^^^^^^^^^ 

virtuais". 

Sistema VirluOS 386 pode ser classificado como sendo total- 

mente compatlvel com o MS-DOStm_ permitindo uma m!gra?ao 

livre de traumas a partir de sistemas ja instalados, ou uma rapida 

entrada em opera^ao de um sistema absolutamente novo. Ele e. 




na verdade, um sistema operacional com- 
plete, capaz de gerenciar multiplos usud- 
rios e aplicaf6es concorrentes. 
Para comev'ar, o Sistema VirtuOS 386 
permite a formav^o de "clusters" multiu- 
suarios atraves da conexSo de "estac5es 
de trabalho" n2o inteligentes a um linico 
equipamento PC-AT 386/486. A partir 
dai, de acordo com o crescimento das ne- 
cessidades de cada empresa, novos "clus- 
^^^^^^^^^ ters" podem ser formados e interconecta- 
dos atraves de esquemas tradicionais de 
Rede Local e/ou Remota. Todos os elementos que permitem a 
formagao dessa Rede de "clusters", estao integrados e sSo facil- 
mente acessiveis no modulo "VirtuOS Network Facililv" 
(VISet). 



O ENDERECO CERTO PARA OUEM PROCURA 
BOM PRECO E OTIMO ATENDIMENTO 



ENTREGAMOS EM QUALQUER 
LUGARDOBRASIL! 



LEASING DIRETO DA FABRICA: 

PC XT e AT em 6/12/15 MESES 



TEH inFDRnflTICfl 



Revenda Autorizada y386 



Av. Pasteur, 184 Loja K - CEP 20291 - Rio de Janeiro - RJ - Tels.: (021) 541-2795 e 295-6690 



ELSE 

5t: BELL 3FF 
ENDIF 
EMC IF 

IF OFC0NF=2 
fllIVQF='N' 

8 3,;0 CLEAR TO 16.60 

DO CENTRO KITH 22. '[S] PfiRfi flTIvfiR MOSTRfiDOR - [K] F 
ftRA DESATIVAR' 

s S.15 5hY -ESTA DFCftO ATIVA, OU NAD, GS flOSTRADORES 
DE EST ADC 

? 10,15 SfiV DO TECLACO DO CONSOLE. SE E5TIVER LIG 
ADA. AS RA-* 

g 11,15 SAt LAVRAS [Capil. [Ini] e [fiu^j APARECERAO 
NA PRIdEI- 

? 12.15 SAY 'Rfi LINHA DA TELA SllANDG FOREM ATIVADAB 
FELQ OPERA- ' 

^ 13.15 SAY DDR. 

e 16,28 TQ 13,44 

a 17,30 SAV 'flTIVAtS/Nl :' GET ATIVOF PICTypE ' '. 

SET CURSOR DM- 

READ 

SET CURSOR OFF 

IF ATIV0F='5' 

SET SCORE OK 
ELSE 

SET SCORE OFF 
END IF 
ENDIF 
IF 0PCONF=3 

% 8,20 CLEAR TO 16,60 

CO CENTRO WITH 22,'DISITE NUnEPC DE COLUHAS QUE VO 
CE SOSTARIA DE UTILIIAR (AO - 255i' 
a 11.30 TO 13.50 
^ 12,34 SAY 'COLUNAS:' SET MCA PICTURE 999' RANGE 4 

SET CURSOR ON 

READ 

SET CURSOR OFF 
ENDIF 
If QPC0HF=4 

CHESf =CHESP+3PAC£ ( 35-LEN( CHESFU 

« 6,20 CLEAR TO 16,60 

DO CENTRG WITH 22,'DI3ITE Q FILTRO DESEJADO PARA C 
AKPO ESPECIFICACftC 

S 11,17 TQ 13.62 

S 12,19 SAY 'CHAVE: GET CHESP PICTURE ' n - m ■ m i i n 

( M 1 I 1 r I M I t M ■ I I M ' M ! ■ 

SET CURSOR ON 

READ 

SET CURSOR OFF 

CHESP^RTPII^iCHESPl 

IF CHESP=SPACEi351 

SET FILTEii TG 
ELSE 

SET FILTER TO CHE3F$E3PECIF 

SO TOP 

LOCATE FOR CHESPiESPECIF 

IF EOF(i 





SET CGLOR TO ;*+ 










@ lb. 27 TD 13,50 










S 17,29 SAV 'FILTRD 


^ao 


ACEI 


-Q " 




SET COLOR TO 










:N^,Ey;:s 










SET FILTER TQ 








^ 


^DIF 








END I 


; 








ENDIF 










If OPCO 


NF=5 








EUT 










ENDIF 










ENDDO 











• Modulo: AGEUIIL.PR6 



t AGENDA v2.0 - AGENDA TELEFONICA 

I BURN BITS INFORKATICA 

X HODULC UTiLITARIDS 

Cpij=i 

DRIVECA=GETE{-COMSPEC') 

DRrvtDfi=SUB5TR|DRIV£DA,l,2j 

IF DRIVEDfi='A:' 

DRIVEDA=1 
END IF 
IF DRIVEDh=-Bi' 

DRiVEDA=2 
ENDiF 
IF DRIVtDA='C:' 

DRIVEDA=3 
ENDIF 
DO WHILE .T. 

DO MQLDURA MITH '- MOBUIG UTILITARIOS SO SI5TE!1A -' 
fi 7,26 PROMPT 'EXIBIR DtRETGRIGS' MESSAGE EUBE DIRETO 
RIO DO DRIVE ESCDLHIDC 

§ =?.26 PRCilP^ 'COflANDD DC DOS' HESSASE 'EXECUTA EQ^ANDO 
DO DOS DIRETG DO TECLfiDQ' 
■^ 11.26 PROr^PT 'DELETAR ARQUiVDS' MESSASE 'DELETfl ARGUI 
VO ESCGLHiDO PELG USLJfiRIC 

e 13.26 PROMPT RENDHEAR ARBUIVOS' flESSfiSE 'RENCHEA UM 
ARQCIVO ESCGLHIDO PELG USUARIO' 

^ 15.26 PRGWPT 'FGR?1hTAR DISCC MESSAGE 'FSRMATA DISCO 
DE DACGS PARA C SISTE^IA 

fe 17.26 PRCflFT 'RETCRNA AO fEMU PRINCIPAL' flESSABE 'RET 
ORNA AO f^ENL PRINCiPAL DO PROGRAHA- 
MENL TO Ofll 
DC CASE 
CASE OPU=I 
EUBI^'h' 

% 22.5 SAY SPACE(655 

S 22.23 SAY 'ENTRE G DRIVE ^'ARA EXIBIR i ' GET EU&I 
VALID (EXISIIABCCat-.a i 
SET CURSGR CN 
READ 

SE' lURSDR OFF 
CLEAR 

• 'En&iNCQ DIRETORIO DE: ■+EX:BI 
DIR 4EXIEI:l.t 



32 MICRO SISTEMAS 



PC/XT REDI UNIUERSOFT - FONE (Oil) 825-5240 



ilUft COHSELHEIRO 8R0rER0 589 CJ 42 - CEP 01154 SftO PftULO - SP 



CODIGO HOME Qlltl DISCO 


PCX. 001 A Hon do Pesaddo 


<02} 


PCX. 002 After Burner 


(02) 


PCX. 003 ftrt of Uar 


<01) 


PCX. 004 Fohocop 1 


<01) 


PCX. 005 Off Shore Uarriors 


(01} 


PCX. 006 Bittle Chess 


(02) 


PCX. 007 ElocV Out 


(02) 


pa 008 Bad Dudes 


(02) 


pa. 009 The Cyoles 


(02) 


pa. 010 California Ga^es 


(02) 


pa. Oil Csmen Sjndlego 


(01) 


pa. 012 Death Iracl 


(OS) 


pa. 013 leUs Porno 1 


(01) 


pa. 014 lelss Porno 2 


(01) 


pa. 015 Double Dragon 1 


(02) 


pa. 016 Double Dragon 2 
pa. 017 Dure de flatar 


(01) 


(OZ) 


pa. 018 Esrl Weauer Baseball 


(01) 


pa. 019 Falcon Smulator 


(01) 


pa. 020 Golfe 


(01) 


pa. 021 Srsnd Prix 


(01) 


Pa.022 Indiana Jones 2 


(02) 


pa. 023 lodlana Jones 3 


(06) 


pa. 024 Leisure Lair 


(02) 


pa. 025 flach 3 


(01) 


pa. 026 Hean 18 - Golfe 


(01) 


PCT.027 World Cup 90 


(02) 


pa. 028 faces 


(01) 


pa. 029 Operation Uolf <U 


(03> 


PCT.030 Os 3 Fatetas 


(02) 


pa. 031 Out Run 


(02) 


PCX. 032 Tapper 

pa. 033 Winter GaMes 


(01) 


(01) 


pa. 034 Donley ^ong 
pa. 035 Pinball Wizard 


(01) 


(01) 


pa. 036 Platoon 


(01) 


pa. 037 PaMpage 


(01) 


pa. 038 Pobooop 2 (U 


(04) 


Pa.039 Pocket Ranger 


(02) 


pa. 040 Lode Runner 


(01) 


Pa.041 Space Racer 


(01) 


pa. 042 Speed Ball 
pa. 043 Star Goose 


(02) 


(01) 


pa. 044 Startret 


(01) 


PCX. 045 Test Driver 1 


(01) 


pa. 046 Test Driver 2 


(02) 


PCX. 047 Tetns 


(01) 


pa. 048 The Last Ninja (H 


(02) 


pa. 049 Ihexder 


(01) 


PCX. 050 Fop Corn 


(01) 


PCX. 051 Goodv 


(01) 


pa. 052 Eushido/7aiK/Defend 


(01) 


pa. 053 lonawank 


(01) 


pa. 054 lartarugas Ninjas 1 
PCX. 055 4>1 Road Racing 


(04) 


(01) 


pa. 056 &S8 flttack Subnarino 


(01) 


pa. 057 lanl Killer 


(04) 


pa. 058 Flight Simulation 


(01) 


pa. 059 flfricar (Bugs) 


(01) 


pa. 060 ftir CoMbat 


(01) 


pa. 061 fiirbone Ranser 


(01) 


pa. 062 flLF, EteiMoso 


(01) 


PCX. 063 ftrkanoid 2 


(01) 


pa. 064 firtit Fox 


(01) 


PCX. 065 Barbarian 


(01) 


pa. 066 Baseball 


(01) 


pa. 067 Basket (Jonhoson) 


(01) 


pa. 068 Battle of Britain 


(04) 


pa. 069 Battle Tech 


(02) 


pa. 070 Black Cauldron 


(02) 


pa. 071 Eudokan 


(02) 


Pa.07Z Captain America 


(02) 


PCX. 073 Cassino 


(01) 


pa. 074 Csuenan HugholiMpcs 


(04) 


pa. 075 Eoxjing 


(01) 


PCX. 076 Karate 


tOl) 


PCX.07T Chess Isster 2000 


(01) 


pa. 078 Cofiando 


(01) 


pa. 079 Conquest of CaMelot 


(10) 


pa. 080 Craiy Cars 2 
PCX. 081 Cubit Tic Tac Toe 


(01) 


(01) 


pa. 082 Cyrus 2 (Xadrer) 


(01) 


Pa.083 Death Sword 


(01) 


KX.084 Defender Of Crown 


(01) 


pa. 085 Destroyer (B.Naoal) 
PCX. 086 Downhill Chalanger 


(01) 


(02) 


pa. 087 Duck Tales 


(02) 


pa. 088 Elite 


(01) 


PCX.089 Erotic Show 


(02) 


pa. 090 Evolution 


(01) 


pa. 091 F-I5 Strike Eagle Z 


(02) 


Pa.092 F-16 SiMulaticn 


(02) 


pa. 093 F-i9 SiMulation 


(03) 


KX 094 Fate Off 


(02) 


PCX. 095 Fire Power 


(02) 


pa. 096 Fli9M SiMulation 3 


(02) 


pa. 097 flight Einulation 1 
pa. 098 Football (iMericano 


(02) 


(01) 


Pa.099 ford Simulation 1 


(01) 


pa. 100 Ford Simulation I 


(02) 



CODKiO NOME 



QTD£ DISCO 



Pa.JOl Gate (01) 

pa. 102 Gauntlet (01) 

PCX. 103 Ghostbuster Z (04) 

pa. 104 Guerrilha War (02) 

PCX. 105 Ward Ball (01) 

PCX. 106 Heroes Of Lances (03) 

PCX. 107 Ikari Warriors (01) 

PCX. 108 llha Disney (01) 

PCX. 109 Football (Salao) (01) 

PCX. 110 Indianapolis 500 (02) 

PCX. Ill Jbird (01) 

PCX. 112 Jet Flight SiMulat (01) 

PCX. 113 Karateta (01) 

PCX. 114 Karnov (02) 

pa. 115 King of Chicago (02) 

pa. 116 Xing Quest 1 (01) 

PCT.117 King Quest 3 (03) 

PCX. 118 Las Uegas (01) 

PCX. 119 Leisure Lair 2 (06) 

PCX. 120 Leisure Lair 3 (08) 

KX.121 LoMbard Rally (02) 

PCX. 122 Loo^ (06) 

pa. 123 Hi Tank Platoon (03) 

PCX. 124 hahunt in Heu Vork (05) 

pa. 125 narble tladness (02) 

PCX. 126 notocross (02) 

PCX. 127 Night r!ission (01) 

pa. 128 Decathlon (01) 
PCX. 129 One in One 1 (Bask) (02) 
PCX. 130 One in One 2 (Bask) (01) 

pa. 131 Paper Boy (01) 
pa. 132 Firatas (USfl) (02) 

PCX. 133 Pit Stop (01) 

pa. 134 Honopoly (01) 

pa. 135 Felice Cuest 2 (06) 

PCX. 136 Prince of Persia (02) 

PCX. 137 Phohibition (01) 

PCX. 138 FSy 5 (01) 

PCX. 139 PI lOS (01) 

PCX. 140 Had tlix (01) 

pa. 141 Eilhar 3D (01) 

PCX. 142 Rad Uarriors (01) 

PCX. 143 F.ajiho 3 (02) 

PCX. 144 Roger Rabbit (02) 

PCX. 145 Roleta (01) 

PCX. 146 Rushn'H Attack (02) 

PCX. 147 Saboteur (01) 

pa. 148 Sail Simulation (01) 

PCX. 149 SPl (01) 
PCX. 150 Service Play Tennis (01) 

pa. 151 Shogun (01) 
PCX. 152 Silpheed (U> (04) 

PCX. 153 Sim City (02) 

pa. 154 Skate of Die (02) 

KX.155 Sky of Die (02) 

PCX. 156 Snooker (01) 

PCT.157 Soroban (01) 

PCX. 158 Space Quest 1 (02) 

Pa. 159 Space Quest 2 (03) 

pa. 160 Space Quest 3 (06) 

pa. 161 Laker i Celtics (02) 

KX.162 Spy ( Spy (01) 

pa. 163 Street Flighter (02) 

PCX. 164 Street Road (03) 

PCX. 165 Strike Fleet (01) 

PCX. 166 Strip Poker (01) 

PCX. 167 SuMwer Gafies 1 (01) 

pa. 168 Summer Gaws 2 (01) 
Pa. 169 Test Driller 3 (UGfl) (03) 
pa. 170 Uolley Ball (Praia) (02) 

PCX. 171 World Soccer (02) 
PCX. 172 Fo^er Drift tcarro) (04) 

PCX. 173 Hostage (02) 
pa. 174 Uiasem Cent/o Terra (02) 

pa. 175 Police Quest (03) 

PCX 176 Cine Porno 1 (01) 

PCX. 177 Pipedieam (01) 

pa. 178 flacsdaM Bumper COD 

pa. 179 Qbliterator (02) 

PCX. 180 Indiana Jones 1 (01) 
pa. 181 Stunts Driver (U) (04) 

PCX. 182 Castelwania (02) 
PCX. 183 lake Down (U) (02) 

PCX. 184 Super Contra (01) 

PCX. 185 Shinobi (01) 

Pa.J86 Stellar 7 (04) 
PCX. 187 Codename ! Iceman (H) (09) 
PCX. 188 Star Treck 5 (UGflXU) (05) 

PCX. 189 Jig Saw Puzzle (01) 

pa. 190 Rock Ford 102) 

pa. 191 f.obocop i (02) 

PCX. 192 F U/13 Simulation (01) 
PCX. 193 Centurion (ySfi) (03) 

PCX. 194 'icUen fixe (02) 

PCX. 195 I1ia«i Uice (04) 

pa. 196 Hunt Red October (01) 

PCX. 197 S.jmer Edition (04) 

pa. 198 Cine Porno 2 (01) 

Pa. 199 Cine Porno 3 (01) 

Pa.20O Hfavy fletal (01) 



CODI(» 


NOME 


QTDE Disco] 


pa. 201 


Battle Hawks IH2 


(02) 


rcx.202 


Space Roujue 
Life and Death 




(02) 


pa. 203 




(02) 


pa. 204 


Echelon 




(02) 


PCX. 205 


Star Defenser 


ittGfi) 


(01) 


pa. 206 


Hissao iMpoEssivel 


(03) 


PCX. 207 


Super Hang On 




(01) 


PCX. 208 


Xenon 2 




(03) 


PCX. 209 


Hoyles 




(03) 


PCX. 210 


War in Hiddle Earth 


(03) 


PCX. 211 


Wind Walker 




(04) 


pa. 212 


Mhel 3 of Fourtune 


(01) 


PCX. 213 


F-16 Pilot 




(03) 


pa. 214 


688 Attack Submar 2 


(02) 


PCX. 215 


Babk to the Future 3 


(02) 


pa. 216 


Rastan Saga 




(02) 


pa. 217 


Tennis Fro Tour 




(02) 


pa. 218 


Chuck Vears ftft 




(01) 


PCX. 219 Pharao's Tunb 




(01) 


pa. 220 


California ijaMes 


2 


(04) 


PCX. 221 


Hah Jonj 
Wings of Fury 


(Ufifll 


(02) 


pa. 222 




(02) 


Pa.223 


Alley Cat 




(81) 


pa. 224 


Tonus of Fatman 


IWl 


(06) 


pa. 225 


Crime Wave 


(UGfi) 


(08) 


pa. 226 


Uette 




(01) 


PCX. 227 


Renesade 




(02) 


PCX. 228 


Hiekey House 




(02) 


Pa.229 


Altered Beast 


(W) 


(03) 


pa. 230 


Battle Chess I 




(03) 


pa. 231 


LoLj Blow 




(03) 


PCX. 232 


Secret Agent 
Last Nin.la 2 




(05) 


PCX. 233 




(03) 


pa. 234 Batman the Movie 




(03) 


pa. 235 


Super Bike 
PGS Tour Golf 




(01) 


pa. 236 




(01) 


pa. 237 


Days of Thunder 




(02) 


PCX. 238 


Super Off Road 


(W) 


102) 


PCX. 239 


Thexder 2 (EGAXW) 


(03) 


pa. 240 


Wing Comander (OGA)fW) 


(12) 


pa. 241 


Dino Wars 


tW) 


(07) 


pa. 242 


Hew Vork Warrior 


E 1E-WH02)1 


Fa. 243 


Avoid the Ncid 




(01) 


pa. 244 


Conflict in Europe 


(02) 


PCX. 245 


steel Thunder 




(02) 


pa. 246 


PC Pool Challender 


(01) 


pa. 247 


Bandit King IE 


GA-2D) 


(03) 


rex.248 


Titanic 2 




(02) 


pa. 249 


Dark Castle 


(2D) 


(02) 


pa. 250 


Hanic Hansion 


(Wft) 


(02) 


PCX. 251 


Weird Dreans 




(02) 


PCX. 252 


Red Dragon 




(01) 


pa. 253 


Sea Draoon 




(01) 


PCX. 254 


Honaoo GP (Confi 


r<-iar) 


(12) 


pa. 255 


Exten'^inador do 


uturo 


(08) 


pa. 256 


Freddv Hardest 
Road Runner 




(01) 


PCX. 257 




(01) 


pa. 258 


Carmen Sandiego 


2 


(03) 


pa. 259 King Quest 5 


(W> 


(32) 


PCX. 260 


Zac He Cracker 




<02) 


pa. 261 


Street Road 2 




(04) 


pa. 262 


Baal 


(OGA) 


(01) 


pa. 263 


Grave Vardege 




(03) 


pa. 264 


Sword of samurai 




(03) 


PCX. 265 




; 


(03) 


pa. 266 


Henace 


(OGA) 


(02) 


PCX. 267 


Captain Comic 


(iJGA) 


(01) 


pa. 263 


tlario Bross 


(UGA) 


(01) 


pa. 269 


The Gane of Harmony 


(01) 


pa. 270 Packet Rocket 




(01) 


pa. 271 


Infiltrator 2 




(01) 


pa. 272 


Operation Clean 
llltima 5 


Streel 


(02) 


PCX. 273 




(05) 


pa. 274 


The Book of Hobein 


(02) 


PCX. 275 King Quest 4 




(05) 


pa. 276 


7, Drive 2 (Hustl 


' Cars 


XOl) 


PCX. 277 


Hight Hagic 




(02) 


PCX. 278 


Sentinel Worlds 




(02) 


pa. 279 


Battle Tech 2 




(04) 


Pa.280 


S tunts 




(04) 


pa. 281 


rtanchester United 


(02) 


PCX. 282 


flichael flndretti 


CE-W) 


(05) 


PCX. 283 


LeWii ngs 


(H) 


(03) 


pa. 284 Space Ace 


Vim 


(19) 


PCX. 285 


Conan (UGfll (W) 


(07) 


PCX. 286 


Capltao Trueno 
ABC flondsij Nig F 




(01) 


PCX. 287 


ootbal 1(06)1 


PCX. 288 


Sapo Deno 
Battle Zone 




(01) 


PCX. 289 




(01) 


PCX. 290 


Haster Blaster F 


nball 


(01) 


KX.291 


State Rock 




(01) 


PCX. 292 


Big Top 




(01) 


PCX. 293 


Fcpolous 




(04) 


PCX. 294 


Narco Police 




(02) 


PCX. 295 


New GP Hctccicle 




(01) 


PCX. 296 


Rick Dangerous 




(01) 


(U) Neoessita Winchester 




(E-H) Hini^hester e Monitor £Gf 




(tlGfl) Monitor OGfl / 2D 


I drives 



FOHM SE PAGTOSi <1) CHEQUE NOMINAL e CRUZADO (2) REOtBOLSO POSTAL (SEDEX A COBRAR) So paga quando retirar no correio. 



-RelacionF nuiM folha o Codigo, None e Quantidade de Discos gue e usado para cada piMg'rana. Para fazer o calculo de seu 
iwdido, Multipli<[ue a ^antidade de discos gnvaios pelo valor de sua opcao confoPHe tabela abaiMO. Entrega l5 dias. 



TfUIELA DE PRECOS 
Copi* it Jogos en disco S.1/4 
Copia de Jogos en disco 3.1/2 
Copia Aplicat. em disco 5.1/4 
Copii AplJMt. eH disco 3.1/2 



PAGTO CHEQUE (15 Desc) PAGTO P/REfUBOLSO (Sedex a Cobrar) 

CrS 1.700,00 CrS 2.000,00 

CrJ 2.350,00 CrS 2.800,00 

CrS 2.100,00 CrS 2.500,00 

CpS 2.800,00 CrS 3.300,00 



IMPORTANIEtf? 



Estao inclusos nos precos o custo dos diske- 
tes e das despesas postais. Para coMpra aci- 
na de Cr$ 25.000,00 gratis disco c/40 senhas 



Relacao de Saftuar«s claborados en 
nosso CPD. AcoHpan)ia instrucoes. 



Pa.9001 - HAU DIRETA 

Emite relatorio e etiguetas de duas 
carreiras. Cri 8.000,00 



PCX. 9002 - CONTROU: BANCARIO 

Destiv^ado ao controle de Cheques de 

Empresas ou particular inclusive de 

cheques pre-datados. emite eytrato. 

CrS 10.000,00 



pa. 9003 - ADMINISIRACAO ESCOLAIt 

Sistena completo de Administracao 
escolar, acompanhamento de notas 
historicoE de alunos, boletins 
historicos de professores. 

CrS 40.000,00 



pa. 9004 - COKTROU; DE RESTflURAHTE 

Emite comanda de fechsmento de mesa 
calcula comiEsao de jarcons, contra 
la estoque de bebidas e pesguisa de 
vendas. Cri 25.000,00 



pa. 9005 - CONTROLE DE ESTOQUE 
Controla entrsda/saida de produtos, 
emite relatorios dos produtos que 
atingiram a guant. minima/max., faz 
pesquisas de vendas e entradas, re- 
marcacao de precos, oadastro de for 
necedores e impiime NF simulada de 
vendas. CrS 35.000,00 



pa. 9006 - CONTAS A PAGAfi E RECEBER 

Relatorio por numero de duplicatas, 
relatorio por ordem de vencinento, 
relatorio por centre de custo, 
e demsis retinas referente ao con- 
tas e pagar e receber da empresa, 

li.000,00 



PROGRAMS APLICATIUOS DE D0H1N10 
PUBLICO E SHAREUARE. 



CODIGO NONE 



QID DSK 



pa. 5001 EOUAIOB Ensino de matema- 
tica, ciencias e financas (1) 

pa. 5002 COLLAGE Editor de desenhos 
e slides, podendo ser gravados (1) 
pa. 5003 ABC FUN KEVS Ingles Para 
oriancas entre 2 e 5 anos (1) 

pa. 5004 SPANISH HERB Ensino dos 
verbos em Espanhol (I) 

Pa.500S GERMAN TUTOR Ensino da 
lingua alema. (1) 

Pa.5006 IIALIflH TUTOR Ensino da 
I ingua i tal lana. (1) 

pa. 5007 FUNNELS Ensmo de matemj- 
tica para criancas. (1) 

pa. 5008 MOOMBEAN flstronomia (1) 
pa. 5009 CHASM Ensino assembler (2) 
PCX. 5010 PC PROFESSOR Ensino da 
linguaaem Basic. (1) 

pa. 5011 TUTOR COM Ensino do use 
do PC t do DOS. (1) 

PCX. 5012 LQ PRINTER Imprmei cabeca- 
Iho eM varies tipos. (I) 

pa. 50)3 PC DOS HELP Ensino DOS (1) 
pa. 5014 PASCAL TUTOR En5.Pascal(2) 
PCX. 5015 CALCULUS Ensino da algebra 
e trijonometria. <1) 

pa. 5016 K TOUCH Ensino de dati- 
lograf ia (1) 

PCX. 5017 FLASH CARDS Dicionano 
ingles t de 7000 vooabularios (4) 
PCX. 5018 TUTOR TUHBOC £ns.Iurboc(2) 
TurbcC (2) 

pa. 6001 6ALAXV Otimo editor do 
tipo dc Wordstar <2) 

PCX. 6002 PC URITE faoil e poderoso 
editor de textos, (3) 

pa. 6003 LETTER HRITE Imprime car- 
tas personal izadas (1) 
pa. 6004 CHIURITER Editor de texto 
e grafico (2) 
pa. 6301 PC CALC Poderosa planilha 
com graficos (3) 
PCX. 6302 ASEASYS Planilha com capa- 
cidade de 256 x 102^ (2) 
pa. 6303 IHSTACALC Esta planilha 

Sermanece residente na memoria (1) 
:X.6304 POMER SHEETS Plan. 3D (2) 
pa. 6601 PC KEVDRAH Desktop (5) 

pa. 6651 CHHIUE IT OUT Centre 
ipiPiessflO de cheques 
F(iX.6652 rLOUDRitU Otimo programa 
para fazer fluxogramas (3) 

pa. 6653 rORHASTER Gerador de for- 
mularies <1) 
pa. 6654 PC com AXS Software de 
contabilidade (7) 
pa. 6701 MICRO GENE Conheoa sua ar- 
vore genealofica (1) 
pa. 6703 ASTROLOGIA Calcula mapas 
astroloaieos (1) 
pa. 6704 BIORRITIHO Biorritimo, 
larot e I Ching (3) 
pa. 6705 PC SORTE Ajuda a fazer pre 
visoes para Loto, Sena e Lotena 
Esportiva (1) 



(1) 



? 

■«;!' APEFTE L?1A TtCLA FARA CONTINUflR . . .' 
LCGF 

CCfihDCl3=:FACE>'35) 
=«'■.[ oCriEfi Tj CDOS 

.- ■ r A r 

u-tnr 

? '":.-: EUT FARA RtTDRHftR AO SISTE^IA' 

? 'OB:: NAQ St ESQUEC; DE FERMfl^ECER NO SUB-DIRETQRI 

? ' dUE ERA CORRENTE NA HQRA DA SAIDft DO PR06RftH 

COLOCAL=SETECCOHSPEC') 
SET CURSOR ON 
RON iCOLQCftL 
SET CURSOR OFF 
LOOP 
CASE QfU=3 

DO (1QLDURA NITH 'AFAGAR ARQUIVO DO DISCO' 
DO CENTRQ WITH 22,'DI6ITe fl NOME DO ARQUIVO DESEJADO 
PARA APAGftR' 

NARQ=SFACE(14) 
■ %. 11,13 TD 13,66 
e 12,14 SAY 'QUAL NO«E DO ARGUIVO A SER APAGADOi' 
GET NARQ 

?tT CURSOR ON 

READ 

SET CURSOR OFF 

IF EI-FTYiNARGl .OR. lASTKEYi )=27 

.D3P 
EWDIF 

^AR5=RT^IH1NARG) 
IF .NO'.FILEiNARQ) 

DC 'iEUSTE 

LD3F 
EIJDIF 
:ERT='N' 

SET COLOR TO «/R 
S 11.27 TO 13,49 DOUBLE 
§ 12,28 SAY SPfiCE(20! 

2 12.28 SAV TEH'CERTEIA (S/N):" GET CERT 
SET COLOR TO 
SET CURSOR ON 
READ 

SET CURSOR OFF 
IF CERT='S- 

DELE FILE iNARQ 
ELSE 

LOOP 
ENDIF 
CASE 0P'd=4 

REANT=SPACE(14) 

RENQ=SPACE(H1 

DO HOLDURA aiTH 'RENOREAR ARGUIVO DO DISCO' 

DO CENTRO WITH 22,'DIG!TE NOME DO ARQUiVO PARA REN 

t 12.15 TO 15.61 

%. 13,16 CLEAR TO 14.60 



OHEAP' 



i 13.16 SAV 'NOUE DO ARGUIVO PARA RENDHEARi ' 

e COLK.ROWi) iSET REANT 

SET CijRSOR OH 

READ 

SET CURSOR OFF 

IF EflFTYtfiEANTi .OR. LASTKEY(]=27 

LOOP 
END IF 
IF FILEiREANTl 

R£NO=R£AliT 

e 14,16 SAY ■RENOMEAR PARA: ' 

« COL().RO«(i GET RENO 

SET CURSOR ON 

READ 

SET CURSOR OFF 

IF ENFTYIRENO) 
LOOP 

ENDIF 

RENAME JREANT TO tRENO 

LOOP 
ELSE 

DO KEXI5TE 

LOOP 
ENDIF 
CASE 0PU=5 

DO HOLDURA HITH 'FORflATAR DISCO' 
% 9,15 SAY 'Nesta opcao FORMATAR DISCO, voce deve pr 
Dceder' 

% 10,15 SAY 'da seguinte laneira: 
\ 12,15 SAY 'Coloque u« disco virgei ou disco antiao 
no drive A:' 

'c ujij dm i<e: kiiiijuc sS ijue netc i>du cst-ejas t.uiiL 

idos dados' 

%. 14,15 SAY 'iiportantes por que este sera totalment 
e apagado.' 

e 22, IB SAY 'TECLE [f31 PARA CONTINUAR, OU ALSO PARA 
SAIR' 

TK=INKEY(0) 
IF Ti:=-2 
CLEAR 

SET DEFA TO ftDRIVESIS 
RUN FORMAT A: 
IF DGSERROROOO 
CLEAR 

? 'ERRO NA EXECUCAO DO PRQGRAMA. 'VERIFIQUE ARQ 
UIVOS DO DISCO 3ISTEMA.' 
QUIT 
END IF 

■i<AlT 'APERTE UMA TECLA PARA CONTINUAR . . .' 
LOOP 
ELSE 

LOOP 
ENDIF 
CASE 0PU=6 

EXIT 
ENDCASE 
END DO 

RETURN Continua na proxima edicao 
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M S X 



CfllftLOGO REMIDO - SOUEHTE OS SOFTS [WIS raffilDOS fWS ULIIhCS 6 hESES 



HSX 1 NORMAL - SUPER JOGO 



CpS 455,00 - X per Disco 

954 R^bo 3 

955 Horld Gawes 
957 After Earner 

959 Double Prajon 

960 DrsQofi Hin.ia 

961 Elite 

966 Operation Wolf 

970 flenegade 3 

971 Pans tatar 

972 4j'1 Koad fiacir? 

973 Robocop 

978 lelas Pdrno 1 
961 lelaE Porno 2 
987 Ghostbuster Z 

989 Eiiilio Sariches 

990 Batman The nouie 

Lancapwntos - CrS 800,00 

SUPER NARIO BROS 
TAItTftRU<»S NirUA 
DOUBLE DRAGON 2 
INDIAW JONES 2 



NSX 1 HEQARAN 356 



CrS 455,00 - 1 por Disco 

001 Hews IS 1 

002 NeiieEis 2 

003 Salamarider 

004 Epsode 2 

006 Fl Spirit 

007 ;<rigtit Pare 2 

009 Final 2cine 

010 Fantasij Zone 

013 1912 

014 Kino's Ualley 2 

015 Gall Force 

016 PinguiM wduenture 
019 Super Laydoci 
023 Solvellius 

028 Flight SiMulation 

029 NewEis Twin Bee 

030 Egjerland flisterij Z 

031 Salanandfr Ifiuridsde 

032 Hyd Lad Z 



RSX 1 J060S ADAPTADOS 



CrJ 950,00 - 1 por Disco 

001 NpMesiE 1 

002 Final Zone 

003 Super Laadotk 

004 Usxol 

005 nirai 

Este JD905 forao adapta- 
dos p/ rodar sen NtgaraH 



MSX 2 NORMAL - JOGOS 


CrS 520,00 - 1 por Disco 


106 Chess 


114 nonaco 


116 Flash Gordon 


118 T.N.T. 


120 World Solf 


125 Test iTive 




142 Breaker 


152 11 hi do Tesouro 


155 Eideloss 



HSX 2 NORMAL - PORNO 



CpS 590,00 - 1 por Disco 

201 Cieciolma I 

202 Cic-ciolina 2 

203 Plaubow Ssjiy 

204 Strip Poler 

205 Porno Show 

211 Telas Digital iiadas 7 



HSy 2 NORMAL - APLIC/UIIL 



OS 715,00 - 1 por Disco 

231 Uideo Graphic 
235 Pixel 11 

239 Super Printer 

240 lassword 2 

241 Pixel HI 



NSX 2 - MEGARAH 256 | 


CrS 


520,00 - 1 por Disco 


301 


Ikari Uarri&rs 


302 




30S 


FsMi ly BoKxing 


n?. 


Rastan Saga 


ifift 


Zarsc Esiceiefit 


no 


Super Rafibo 


m 




r/.?. 


Hinotori 


■».? 




m 


Contra 


n\> 


Racing Cars 


34S 


Space Haiibow 


349 


neta) Gear i 


3f*K 


Super Runner 


S53 


Punts Z 


35h 


ftnerican Socter 


356 


fir,i«al Uars 2 



NSX 2 - 720 kb 



CrS 910,00 - por Diseo 

MX 2 t(. Discos) 
TKt'i (4 Discos) 
BURftI (5 Discos) 
DRAGON SLAVER (4 Discos) 



COLECOES MSX 1 



COLECAO 1 - CrS 2.300,00 

4001 flgerda DoMestica 1 

4002 Banco de Dados 1 

4003 flala Direta 1 

4004 Contr de Estoque 1 

4005 Editor de Texfo 

4006 Contas a Pafl/Heo 

4007 Contabihdade Dofiest 

4008 Agenda Anual 

4009 Contrcle Bancario 

4010 Fianilha (ISi; 



COLECOES MS)( 1 


COLECAO 7 - CrS 2.300,00 


4061 


flbelha Sabia 2 


4062 


flbelha Sabia 3 


4063 




4064 


Nissso Resgate 


406S 


fiago Uosdor 


4066 


4067 




4068 


Psscador Espacia) I 


4069 


Hnsgraf-ia 1 


4070 


flna?rsMa H 



SUPER AFLICAT e JTILIT 



CrS 1.800,00 - 1 por Dsk 

Contaltilidade 
Foiha de Payto 
Agenda de CoHProHtsso 
Linffuagen C (2 Discos) 
Msx Dos Tools 2 
Kala Direta 
Contiixile de Estoque 
Uni-Telas t 39 Telas 
Ed Music + 56 Musicas 
Tradtitor 

IFideo Texto System 
Mega PrinI 

Video Hits (2 Discos) 
Turbo Pascal 



PACXS JOGOS - HSX 1 



CrS 1.950,00 por Pack 



PftCK 17 

Batj^an - Blagjer - Choroq 
Condor Han - Desolator 
Flappy Stflnes - Kinasai 
Pitfall 1 - Super Cobra 
tla^ical Xid Uiji 



PftCK 20 

Future Unight - Haiiao 
Cjls Hells - Castle 3 e 2 
Ihexder - Trailblazer 
Ultra Chess e 2anac 2 



PACK 28 

Bsach Head - Bocm - Clued 
Fred arid Bub - Jump Land 
nidfiight Bret - lonopolio 
Honsters - Super flind e 
iJicius liper 



POCK 32 

figuia de Fogo - filpharoid 
Astro Plufier - fltscl: ToMa 
Bhk Sirtulator - Break in 
Captain Chef - Car Race 
Scerftipede ? Chuck Egg 



PACK 34 

CaMelot Warriors - Eleuat 
fiction - Endure - Fruit 
Hachine - Tiger 1, 2 e 5 
Traza Hanzanas - 3D Hater 
Winter Ganes 1 



PACK a? 

Eur-tr - Futbol of the aea 
Kubus - Super Boul - Sup 
Soccer - Taction - Uboot 
Citabalic - Viear Kufpg fu 
e Ze*as 1 



PftCK 54 

He Han - Alien o Restate 
Hoy PacMan - Police Scad 
Hest - Ultrai-isn - Tiner 
Bofiber - flrtanoid 1! - 
Snakey e Cetus 



PACK 62 

t!onani Soccer - Pins Pong 
lenris - Easebal 1 - Eilha 
Basket - Uclley Ball 
Gran Prix Wet 1 3 - Hyper 
Oiiup e Hyper Sports, 



PftCK 63 

Galage - Star Soldier 
Zanao 1 - Star Force 
Hyper - Zsnac 2 - Gullsi'e 
Columbia - Bosconian e 
Phants I 



PftCK 64 

Adonis - fiwct's Put 
Eop' - Reinado - F iicV 
KiMpa - Hagical Pinball 
Post Hortert - fiona e 
A Haldicao 



PftCK 65 

(auern Heath - Malaga 2 
Jo^iuei - Krri9ht Nirja 
PoJ.er n - Scorpeon 
Sherlucl Molrtes - Ufo Ai 
Sprint GaMes - Wonder Bsu 



Os Packs acioa sao compos 
tos de 10 jogos * 1 Cop, 



IJEJfl NOSSfi LISIfi COrtPLETfl Nfl MICRO SISTEfMS No. 106 Paginas 50 e 51 



SUPER PACKS - MSX 1 



CrS 1200,00 - 1 POP Disco 



SUP PftCK 301 

Ace of flee ■ Kr-aiout 
Capitao Sevilla 1 
Heddox - Don Quixote e 
Crazy Car 



SUP POCK 304 

ftfteroids - i,^ericn 
firkcE 1 - Banana 
flundo Perdido - Hochey 



SUP PftCK 30B 

Chicago 1938 - laipan 
Hauy floves 1 - Sol Negro 
Aspar note? - RaMpari 



SUP PftCK 3J.O 

HuMPrey - Lady Safari 
Had tliK - Nauy Houes 2 
Sol Negro i - Titanic 2 



SUP PftCK 315 

Bounce - Strange 

Final CountdoM - Boukefi 

Strip Play - Uortex 



SUP PftCK 319 

After War 1 - After War 2 

/encri - Syndrome 

Obi iterator - Skate Drag 



SUP PACK 324 

Chafe H.O. - Ccrsarios 2 

invaders - Heaanova 

Flay Ball 1 - Slclor Eyles 



SUP PftCK 325 

Jyfrgle Warriors - lach 3 

Hecon - Power and flagic 
Hortadelo 1 e 2 



SUP PACK 326 

A,E, - Astro Harine Ccirp 
BuMpy - Dicrensao Oweja 
Diois Coiumel - Smurfs 



SUP POCK 327 

flfio del tlundo - Cowando * 
Dimensao Oneja 2 - flambo 
Rath-ha - XH 65 Patrol 



SUP PACK 328 

Avent Original - Crisis 
Diora Cozunel 2 - S Ball 
flecano Oaii; - Esm=aJ; 



SUP PftCK 329 

Curre JiMenez - Uisicn 
Heo-z - Artie Fox 
3Ii Fool - America 



OBS: Cada Super Pack ten 
6 Jogos. 



JOGOS MSX 2 720 kb 
ADAPTADOS PARA 36gkb 



CrS 388,00 - Cada Disco 



Akanbe Dragon (2D) 
Fsvchc World 12D> 
Disc Station i2I>l 
TuinVe Star (2I» 
Greatest Drive I4D> 
Sfl-ZI-RI (2D) 
Feed Back (2D) 
Flrehawk - Ihexder 2 (4D) 
Konawi SsMe Col. (2D) 
Herzos (3D) 
Voujialorin (3D) 
Alesle Special (2D) 
FaMicle Parodlc 2 <.AD> 
Aleste 2 (6D) 
Princess (3D) 
Tetris (2D) 
iJndeadline (2D) 
'-■S 5 (lOD) 



NOUIDADES HSX 2 MEGARAM 



Cada CRS 508, W 



Ninja Kun (ID) 
Halaya (ID) 



NOUIDADES HSX 1 KEGARAM 



Cada CRS 580,00 



Dragon Slauer (ID) 
Hydljde Z IlDi 



JOtJOS HSX 2 - 720kb 



CRS 698,00 - Por Disco 



Erterald Dragon (5D) 
Peach IP (2D) 
Cdurims (ID) 



NOUIDADES NSX 1.8 



TOG BIN 
SAINT DRAGON 
SITQPDNS RACE 
IHDIfiNA ODNES 2 
FUTEEOL HfiNEGER 
AFRlCflU RALLV 
COMTlHENTftL CIRCUS 
PROFESSIONAL TENNIS 
CARLOS SAIHZ TOVOTA 
CHESS MASTER 
FINAL WAR 

HCLiNTAlN EiHE RflCER 
SAP 

SIR WOOD 

THE LIGHT CORRIDOR 
WINTER HflWK 
GREHELINS 2 (ID) 
GHOSTBUSTER 2 (ID) 
GEI11HI WINGS (ID) 
OS INTOCAUEIS (ID) 
LORNA 'IP) 

CADA CRS 400,00 



ADAPTADOS MSX 1 S/ KEGA 



1943 (ID) 

FLKjHT SiriJLflllON (ID) 

liAiUA STOR^ (ID) 

CADA CRS 500,00 



UIDEO 
GAMES 



tfEQ) DRil^E 



NINTEWO 



mSTER SreiEH 



SUPER FfmiCOfl 



GfVIE BOV 



CflRTUCHOS 



REGADRIVE 



SOHIC 
FINAL BLOU 
GAVARES (Sn) 
RESISTENCE 
FANTASIA 

niCKEv nousE 

RONACOGP 

sHADou mem 

STRIDER 



NINTDfDO 



TARTARUGA 2 

n.mm 3 

BATTLE TOADS 
SIHPSONS 
VONOID 
R0B0C0P2 
S.rfARiO 3 



HASTER SVStEH 



flONftCOGF 
ESWfiT 

niCKEV HOUSE 
SUmERGAHES 
nOONUALKER 



COMO ODPUIFIR MOS505 PKODUTOS 

1) Relacione en UMa Fofia de papei os produtos que deseja aquirir, in- 
djcando o nuner^o, none e para "inal o coNPutador. 

2) Iscrewa sen none e endereoo conpleto de rorna legiwel. 

3> FORMA DE PftGAMENTO: ft) Reehbolso Postal B> Cheiiue HoHinal 

A) Hesta Modalidade voce so pa^ara seu pedido ao r*tirar no CorMio 
Sendo que sofrera uh acrescino de lOz. 

B) Para PagaMonto co« Cheques os Precos nao sofr^rao acr<esciNO e as 
despesas de Correio sao po^ tiossa conta. 

Disco 5.1/4 CrS 520.00 
OBS; OS PROCRAMfiS ACIMA NAO 1KCLUD1 DISCO. Disco 3.1/2 CrS 149o!oO 



U T I t I T A R I O 



Aprenda a "ver" arquivos com atributos invisiveis 



Dm DIR muito especial 



^/isiveis 


PC 




Micro: IBM PC/XT 




Mem6ria; 512 Kbytes 




Video: CGA 




Linguagem: Turbo C 




Requisites: Nenhum 



n Marcelo Floras Vieira 



Este utilit^rio tern como objetivo incrementar o comando 
[DIR] do sistema operacional, posslbilitando ao usu^rio 
"ver" arquivos que tenham atributos como READ-ONLY, 
SYSTEM e HIDDEN. A sintaxe a ser utilizada 6 a segulnte: 

DIRF [DRIVE] [DIRET6RIO] [NOME e EXTENSAO] 

Caso "drive, diret6rio, nome e extensSo" nao sejam for- 
necidos, ser^ mostrado, ao usuSrio, um texto de ajuda. 



As InformapSes fornecidas pelo programa s§o as mes- 
mas mostradas pelo comando [DIR], acrescentando-se o 
atributo de cada arqulvo designado por "nome e extensao". 

"Nome e extensao" podem ser designados utilizando- 
-se "*" e "?" de acordo com as necessidades do usuSrio. 
programa pode ser interrompido teclando-se "CTRL" + 
"C" simultaneamente. 



MARCELO FLORES VIEIRA A formado em Engenharia 
Mecfinica pels Universidade Federal Ruminense e possui ou- 
tros cursos de extensfio em Andllse de Sistemas pela PUC. Pro- 
grama em C Cobol, Clipper, Pascal, etc 



• Listagem 1 

/» 5trcat(path,dir); 

+ strcpy(pa'ix,path)! 

+ ichei = f!ndfir5t(argvCi],&ffblk,6x87>; 

Prograia: OIRF.C i^ (achci==-i) printf {"XnNenhni arqulvo con especlficac 

Funcao : Exibir arquivos de rfeteriinado drive/direto ao Zs\n'',ar9vCi])T 
r io 

lostrando taibei seus atributos. while (lachei) 

Autor ! Marcelo Flores Vieira - «P4M Consultores S/C C 

Ltda. 5trcat(paux,ffblk.ff-na»e)j 

Rua Frei Henrique. 225 - CEP: 28751 if ((pi=open(paux,0-BINARY)) !=-l) 

+ [ 

+ getftliie(pi,&fti«e)j 

»/ iBostra_arq{); 

Hinclude <stdio.h) doseCpl); 

Hinclude (dos.h) ) „ , . _, ^<n « 

Itinclude <fcntl.li) else printf( \n Erro na leitura do arquivo Zi2s .pa 

#include <io.fi) ux); 

Itinclude <dir.h) achei=f inrfnext(8ffblk)s 

void cabecalho(votd); strcpy(paijx,path); 

void help(void); ) ^^ ^^ 

void iostra^arqivoid); printfCXn ); 

struct ftiie ftine; ) 

st-ruct ffblk ffblk; void cabecalho(void) 

■ain(int argc, char »argv[]) { 

< printf("\n\n OIRF - MPSM Consultores S/C"); 

int pi, achei, status, conf; pr intf ("\nOUTm - AH rights NOT reserved"); 

char driveCHAXDRiyE], dirCMAXDlRl, noieCHAXFILEI, extCM prlntf("\n verso i.i9"); 

AXEXT3, printf{"\n\nTel.: {«2i)5?4-752i - PROyiS^RIOW); 

pathChAXPATH], pauxCMAXPATH]; ) 

if (argc { 2) { helpOjexit («);) void help(void) 

cabecalhoO; { 

fnsplit(ar9vCi],drive,dir,noK,ext); cabecalhoO; 

strcpylpath, drive); pr intf ("XnEste utilitario tefii cono finalidade, increnen 
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tar "); 


c 










printfC'coiianda 'OIR'"); 


case (0m2«): 


printfC'Arq.' 


);break; 






printf("\ndQ Sistena Operacional, possibilitanbo a leit 


case iHii)'- 


printfC 


Leit lira' 


);break; 




ura de "); 


case (dx92): 


printf(" 




Escondida" 


);brBak 


printf("arqiiiva5 con"): 












printfC'Nnatnbutos cono 'HIDDEN', 'SYSTEM' e etc."); 


case (8x03): 


printfC 


Leit ura 


Escondido" 


);break 


printf("\n\n\n Sintaxe correta: "); 












printf("\n\n DIRF C<dr ive)K<diretDr io>]<notie-arquiv 


case (0;<04): 


printfC'Arq. 


Leit lira 


Escondido 


Sisten 


o.ext)"); 


a'');break; 










print-r("\n\n\fi Caso <drive> b/qu <diretorio> sejat oRJt 


case (0x05): 


printfC 


Leitura 




Sisten 


idos, este "); 


a'');break; 










printfC'ijtilitario"); 


case (0x06): 


printfCflrq. 


Leitura 


Escondido 


Sisten 


printfC'Nn asspiiiira o drive e diretorio corrente para 


a'Mjbreak; 










exibir os "); 


case (0x07): 


printfCAru. 


Leitura 


Escondido 


Sisten 


printfC'arqui-"); 


a"), "break; 










printf{"\n vos especif icados,"); 


case (0K08): 


PrintfCRotul 


o"); break 






printf("\n\n Os caracteres '?' e '*' poden ser utiliza 


case (0x1*): 


printfC(DIR 


");break: 






dos para "); 


case (0x2i): 


printfC'Arq. 


Leit'Jra' 


);break; 




printf("especif icar")j 


case (0x22): 


printf("Ar(i. 




Escondido' 


); break 


printf("\n os nones e eidensoes dos arquivos.Xn"): 












) 


case (0x23): 


printfC'Arq. 


Leitura 


Escondido" 


); break 


void iostra-arqCvoid) 












C 


case (0x24): 


printfC'Arq. 






Sisten 


printf("\n%i2s'%ffblk.ff_naie)! 


a');break; 










if((fti»e.ft_year+8«)<id») 


case (0x25): 


printfC'Arq. 


Leitura 




Sisten 


printfC X«2u/Xe2u/Xri",ftiiB,ft_day,ftiiie.ft_aonth,f 


a");break; 










ti»e.lt_year+8«); 


case (0x26): 


printfC'Arq. 




Escondido 


Sisten 


else 


a");break; 










printfC :!82i4/X62u/Xu",ftiie.-ft_day,ftiiie.ft_i«onth,f 


case (0x27): 


printfC'Arq. 


Leitura 


Escondido 


Sisten 


t iie.-ft_year); 


a");break; 




* 






printfC 2fl2ii:Z«2ij:X«2u",fti»e.ft_hour,ftiie.ft_iin,fti 


default: 


printf("Z:i",ffblk.ff_attrlb);break; 1 


me.ft-tsec); 


) 










printfC Xieid ",ffblk.ff_fsiae)j 


] 










switch (ffblk.ff-attrib) 










■ 



CURSOS TECNICOS! 



A P REN DA TO DOS 
OS SEGREDOS 
DA ELETRONICA 
E DA INFORM ATICA 

• ELETRONICA BASICA 

• ELETRONICA DIGITAL 

• AUDIO E RADIO 

• TELEVISAO PB/CORES 

• PROGRAMACAO BASIC 

• PROGRAMACAO COBOL 

• ANALISEDESISTEMAS 

• MiCROPROCESSADORES 

• REFRIGERACAOEAR 
CONDICIONADO 

• ELETROTECNICA 

• INSTALACOES ELETRICAS 

• SOFTWARE DE BASE 



CURSOS 

INTEIMSIVOS 



FOR CORRESPOIMDEIMCIA 

! DINAMICOS! 



KITS EXCLUSIVOS! 

KIT DE MICROCOMPUTADOR 

Z-80 EMAIS: 

KIT DE TELEVISAO' KIT DIGITAL 

ANALOGICO • KIT DE RADIO AM'FM • 

KIT BASICO DE EXPERIENCIAS • KIT 

DIGITAL A VANQADO • INJETOR DE SINAIS. . . 




SOLICITE MAIORES 
INFORMAgOES SEM 
COMPROMISSO! 




OCCIDENTAL SCHOOLS 

CURSOS TECNICOS ESPECIALIZADOS 

Av. Sao Joao, 1588 — 2" Sobreloja 
01260 — Sao Paulo — SP 
FONE: (011)222-0061 



OCCIDENTAL SCHOOLS MS110 

CAIXA POSTAL 30.663 
01051 - SAO PAULO - SP 

Desejo receber Gratuitamente, o catalogo ilustrado do 
Curso de 

NOME 

ENDEREGO 

BAIRRO 

CIDADE 

ESTADO CEP 



I T A 



Aprenda como acessar arquivos em 'C 




Arquivos ASCII: 

e facil lidar com eles 



Micro: IBM PC/XT 
Memoria: 512 Kbytes 
Video: CGA 
Linguagem: Turbo C 
Requisites: Nenhum 



D Marcia Marini e Claudio Oliveira 



Este utilitario pode ser usado para realizar copia de arquivos ASCII 
ou lista-los no monitor de video. Seu valor e principalmente didatico, 
pois ilustra a utilrzapao dos comandos para manuseio de arquivos atra- 
ves da linguagem "C". 

Seu uso e simples. Para realizar uma c6pia deve-se digitar: 

- COPIA ARQ.ORI ARQ.DES 

ONDE: arq.ori e a denominacao do arquivo-origem; 
arq.des e a denominacao do arquivo-destino. 

Para lister na tela: 

- COPIA ARQ.ORI 

ONDE: arq.ori e a denominacao do arquivo a ser listado. 

Os nomes dos arquivos devem ser passados na linha de comando; 
caso contrSrio, o programa indicara a maneira correta de ser executado. 
Em seguida, os arquivos sao abertos. Caso a abertura dos arquivos nao 
seja possivel, o programa emitir^ uma mensagem de erro. 

programa realiza a leitura dos caracteres de um arquivo e a trans- 
ferencia do mesmo para outro arquivo ou para a propria tela, depen- 
dendo dos argumentos passados na linha de comando. 



MARCIA M. MARINI 6 t6cnica em Processamento de Dados 
e cursa o ultimo semestre de An^lise de Sistemas. Presta con- 
sultoria A Organiza^ao Mundial de Saude e ao Escrit6rio Re- 
gional do Population Council. 

CLAUDIO L. V. OLIVEIRA 6 t6cnico em Eletrdnica e possui grau 
superior em Andlise de Sistemas. Programa em Clipper, C, Co- 
bol, Pascal e Basic. 



• Listagem 1 



'** utilitario para Copia e Listagen de ArQuivo ftSCII 

** Escrito por : Claijdio L. V. Oliveira e flarcia M. Har 

mi 

if* Harco, i99i 

*/ 

Hinclude <5tdio.ii) 

raainfargc, argv) 

int argc; 

cha^' *3rgv[]; 

( 

printf ("\nCopiador de Arquivos ASCIIXn"); 

printf ("Claiido L. \}. Oliveira e Marcia M. Marini\n\ 

if (argc == i) 

printf ("Sinta;<e :\n\n"); 



printf ("Para copiar lini arquivo : copia arq.on ar 

q.desNn"); 

printf ("Para li^.tar o arquivo na tela s cop.a arq 

.or iVn") ; 
} 
elsp 

if (argc == 2) 
listariargvEiD ; 

El5S 

[QP lar (argvCl], arq^r?]); 
} 
cop!ar(or ig^dEst ) 
char *oi' ig ; 
char sdest ; 
•. 

int car; 
FILE »arqo; 
FILE *arqa; 

arqo ~ fopen (or ig, "r") ; 
if ( larqo) ^^ 

printf ("Nao pos50 abrfr aro^iivo ongemNn )■ 
else 
( 

arqd " fopen (dest , "w"); 
if (la-qd) 

printf ("Nao posso abrir arqui'^o oestmoXn"); 
else 
do 

car = fgetciarqo); 
if (car t^ EOF) 

fpijtc(car, arqd); 
} 
iihilE (car I:: EOF); 
fclose(arqo); 
fclosefarqd); 

listar(orig) 
cri?,'- *or ig; 

FILE »arQo; 

int car; 

arqo = fopen (of ig, "r"); 

if (iarqo) 

printf ("Nao posso abrir a^^qii'vo origerAn h 
else 

[ 

do 

r 

car = fgetc (arqo); 
printf {"%c-\ car); 
) 

Khile (car != £0F); 

fc lose (arqo) ; 
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/MS servicos 



fhesk 



Tecnologia Eletrdnica 



PADRAO 
CGA 

LIGADO 
DIRETO 
NAANTENA 
DA TV 




TRANSFORMESUATV 
EM MONITOR COLORIDO 



Sem modificapdes na TV 
Sem modificapoes no micro 
Facil instalapao 
excelente desempenho 
Custo 10 vezes menor ao de um 
monitor colorido 



Fhesk Tecnologia Eletrdnica Ltda. 

Av. Presidente Kennedy 213, Centra 
Sao Goncalo - RJ - CEP 24610 
Tels.: (02i) 712-8034 e 712-4312 





CURSO DE MONTAGEM DE PC. SISTEMA 

Chegou a sua vez de ganhar dinheiro montando PC. 
metodo 6 simples e rapido. Sao 200 paginas com 
dicas, tecnicas e ilusiracoes e voce nao precisa saber 
eletrdnica, basta saber escolher corretamente os 
componentes: placas, drives, discos rigidos, moni- 
tor... Dicas e tecnicas de montagem e software. 
Conhega o hardware do PC. Como converter seu PC 
em AT. Faca voce mesmo! Este manual ensina como! 



MONTE UM PC IMPORTADO 
SEM ESTAR MONTADO NA GHANA 

DE APOSTILAS, RAPIDO E EC0N6MIC0. 



"I CAIXA POSTAL 11609 - CEP 22022 • RIO DE JANEIRO • RJ i r 



Pagarei apenas Or $ 13.800,00 mais despesas postals, a sei que 

vou receber um manijal do curso de montagem de PC. 
Nome: 

\m Endereco: 

_ Bairro: 

m Cidade: FstaHn- r.on- 



Envio o cvipom agwa, eem pfocwar miifidw diohero. Vocfl sA pugs quando lecebei 
BBu mafiual nn ngflficia dos cofteioG da siia c id a da. V alidade do preco aid ^^\I^2IB^ 
pedidos poMsdoe ap6« esta data eerao etsndidos pslo vol™ do mfts da posIaaBm. 




HARDWARE E SERVICOS 



PHONTA ENTREGA: Computador AMIGA 500-P (c/ 1 Mb inter- 
no), Expansao A-501 512 Kb oneinal com Clock. A-520 TV- 
MODULATOR (NTSCou PALM), Interface MIDI, Sampler Dnve 
5 1/4 exierno, Drive 3 112 externo. Modem 1200 RS. DIGIVIEW 
A.O GOLD, Chip SUPER AGNUS. 

SOB ENCOMENDA: Impressora CITIZEN 200-GX com Kit Co- 
lor, AMIGEN, Monitor 1084-S. 

SERVigoS: Transcodif icapao de TV p/ RGB, Instalaijao de chip 
SUPER-AGNUS, Instalagao de 1 Mb imerno, Transcodificaijao 
de A-520 NTSC para PAt-M, ManutenQSo para loda a linha e 
Assistencta Tecnica especializada. 



SOFTWARE 



• Mais de 700 litulos disponfveis de software 

• Ultimos langamentos 

• Os melhores games 

■ Utilitarios para todas as areas: Grafica, Texto, Desktop Vi 
deo. Musical, CAD. etc. 

• Manuals originais 

• Gravagoes garantidas em 5 1/4 e 3 1/2 

• Remelemos pars todo o Brasil 



AMIGA CHEAT 

GRATIS EM SUAS COMPRAS 



byAVALLONfOon" 1 ao 25): relai^ao com dicas. passwords, 
fases secretas. imunidade total, vida intinita. tempo infinito, ere 
Muitas ineditas' Agora voceja pode chegar ao final de mais 
de WOjogos de Amiga. Pega gritis o numero do seu AMIGA- 
CHEAT ao comprai softs de Amiga na AVALLON. 




JOGOS 

(MSXl, MSX2 e 

MEGARAM em 

disquetes 5 1/4 e 

3 1/2) 



APLICATIVOS PROFISSIONAIS: 



Banco de Dados, PlanUha de Calculos. Mola Direta. Agenda, 
Coniabilidaae, Ficharios, Controle de Eatoifue, EQitores de 
Te*[o, Calculos Eslruturais 



LINGUAGENS 



C (ASCII/ZSOj, C (Library). C (A;:teC)-, Tuiho Pascal* Cobol 
80*, DEVPAC 80*, Forthran, Mega-AssemOler', Mumps* - 
Acompanham manual. 

DIVER SOS 

Sistema Grafico para Desenho', Ststema Deskiop 
Publishing", DOS*, CopiaOores Oiversos*. Editor de Video', 
Editor Musical*, Graticos Estatislicos', SEMA-Soft, LOTO-Soft, 
Sisiema CAD- e mutlo mais' (' Acompanha manual] 



PERIFERICOS IConsulte-nos) 



CATALOGO MSX E AMIGA 




Sb voce ainda nao tern o nosso catalogo completo nao perca tempo, Erivle-nos uma carta com letra legivel, en deroco complete 
e telefone (se tlver) solleltando o seu, E gratts! 



AVALLON INFORMATICA LTDA. 

AV, ALMIRANTE BARROSO, 22 SALA 602 - CENTRO - RIO DE JANEIRO - RJ 

- CEP 20031- AO LADO DO METRO CARIOCA ■ DAS 9:30 AS 18:30 HS, 



TEL: (021)262-1636 



P R O u 



Transforme seu micro num instmmento musical 



Orgao no micro 




Micro: IBM PC/XT 
Memoria: 512 Kbytes 
Video: CGA 
Linguagem: GwBasic 
Requisites: Nenhum 



n Emerson Tedesco Fan'a de Morals 



Este programs tern como finaiidade produzir sons a medida 
em que voce vai digitando uma letra. A cada letra o som e di- 
ferente, como se fosse um orgao; a interruppSo desse pequeno 
orgao 6 no CONTROL + BREAK. Voce pode trocar o som, tro- 
cando os valores do SOUND, Construa o seu proprio orgao. 

EMERSON TEDESCO FARIA DE MORAIS cursa a sdtima s6- 
rie, e 6 professor de Basic. Programa em Basic, dBase III Plus, 
Clipper, Lotus e Wordstar. Utiliza um SID - 501. 



BIBLIOTECA DE FUNCOES PARA 




• ACENTUADOR 

• MOUSE 

• TELAGRAFICA 

• TECLADO 

• COMUNICACAOVIARS-232 

• CALCULADORA ON-LINE 

• CALENDARIO ON-LINE 

• EMUITASOUTRAS 

SOLICITE DISCO DE DEMONSTRACAO 



Ligue tone (0499)44-0144 
DIGITEC INFORMATICA LTDA 

Cx. Postal 104-89700 - Concordia - SC 



• Listagem 1 


10'- 














20' TRANSFORME SEU COflPyiftDDR E« UR ORSAO 


30' E 
40'- 
50 f 


HEP.SQN ' 


, F 


. DE MORAIS JULHO/1991 


$ = It^KEYi 




6C 


F At = 


Q" 


THEN SOU«D 300,5 


70 


F fit = 


«= 


THEN SOPND iOO.5 


80 


F At = 


E" 


THEN SOUND 900,5 


90 


F At = 


R" 


THEN SOUND 1200.5 


iOO 


IF fit = 


n •■ B 


THEM SOUND 1500.5 


110 


IF At = 


H y ■ 


THEN SQUKD 1S00.5 


120 


IF At = 


■U" 


THEN SCOND 2100,5 


130 


IF At = 




THE.N SOUND 2400,5 


UO 


IF At = 


"0" 


THEN SOUND 2700,5 


150 


IF fit = 


"F" 


THEN SOUND 3000,5 


160 


IF fit = 


"A" 


THEN SOUND 3300.5 


170 IF Ai = 


"5" 


THEN SOUND 3600,5 


180 


IF fit = 


"D" 


THEN SOUND 3900.5 


190 


IF fit = 


"F" 


THEN SOUND 4200,5 


200 


IF At = 


"E" 


THEN SOUND 4500.5 


210 


IF At = 


"H" 


THEN SOUND 4800,5 


220 


IF fit = 


■J- 


THEN SOUND 5100.5 


230 


IF At = 


U V'B 


THEN SOUND 5400.5 


240 


IF At = 


"|_" 


THEN SOUND 5700,5 


250 


IF At = 


H,. 


THEN SOUND 6000.5 


260 


IF fit = 


T 


THEN SOUND 6300.5 


270 


IF At = 


T 


THEN SOUND 6600,5 


2B0 


!F At = 


"£' 


THEN SOUND 6900,5 


290 


IF At = 


«y. 


THEN SOUND 7200,5 


300 


IF fit = 


"B" 


THEN SOUND 7500,5 


310 


IF At = 


'H' 


THEN SOUND 7300,5 


320 


IF At = 


'•r 


THEN SOUND 8100,5 


330 


IF fit = 


n R 


THEN SOUND 8400.5 


340 


IF At = 


■1 a 


THEN SOUND 8700.5 


350 


IF At = 


"/° 


THEN SOUND 9000.5 


360 


IF At = 


"0" 


THEN SOUND 9300,5 


370 


SQTG 50 
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/\AS servicDS 



APRENDA INFORMATICA 
SEM SAIR DE CASA 



CURSO RAPIDO. ECONOMICO E EFICAZ 



Sistema de Apostilas. Basta seguir os exerciciostreinando dire- 

tamente em seu PC. 



COMANDOS TRADUZIDOS PARA NOSSO IDIOMA 



Opcional: Disquete 5 1/4" com Exercicios 



Mande seu pedldo para: R. Conde de Borrrflm, n." 422/418 - Tijuca ■ Rio 
■ CEP 20.520 A/C Ricardo Flores 



1— 
1 


Desejo receber os (tens assinalados abaixo. S6 pagarei o valor correspondente 
ao total do pedido, incluido as despases de remessa, na agencta do 
correio da minha cidade. 


—I 




Pre90»; 


Apostlla 


Disco 5 1/4" 






UDtus 123 
dBase 111 Plus 
WordStar 5.0 


□ 16,500,00 
a 16.500,00 

□ 15.800,00 


D 4,500.00 
n 4.500,00 
D 4.500.00 






Total do Pedldo: 




1 


NOME . 

ENOERE(;0: 

BAIRRO: 

CIDADE: 

TEL.: 


EST.: 


CEP: 


1 











PROGRAMAS PROFISSIONAIS 
PARA MSX E PC 




SOUCITE CATALOGO 








1 .-. 




J LINHA MSX 

'Conlabilidade Profisslonal Completa em Dbase II Plus' Cr$ 18.000,00 
Controle de Estogite Profissional em Dbase II Plus: Crt 5.<5O0,O0 
Super Conversorde Arquivos — Basic — Dbase: Cr$ 3.600,00 
Supershapes l ,2 e 3, para Graphos III e Page Maker: Cr$ 2.700,00 
E.V.A. Editor de Vinrietas Animados: CrJ 5.400,00 
L.S.D. Letters Special Designer: CrJ 3.600,00 
Mala Direta Plus: CrI 5.400.00 
Agenda c/Relatonos eConsulias CrI 3.600,00 
MSX CHART Graficos Comerctais e Eslatisticos: CrJ 3.780,00 
MSX Top Cad Editor de projetos Profissionais- CrJ6 800,00 




LINHA PC 
Agenda Profissional c/ Mala Direta e Editor de Textos: CrJ 60.000,00 
Contabilidade Profissional Completa: CrJ 60.000.00 
Agenda Politica c/ Mala Direta e Editor de Textos: CrJ 60.000,00 
Agenda Juridica c/ Mala Direta e Editor de Textos: Cr^ 60.000,00 
Prooramas de Dominio Publico e Shareware: Solicite CatAlogo 

Padldos atrav*s de Cheque Nominal ou Vale Postal 4: 

NEWDATA INFORMATICA E SI6TEMAS LTDA. 

Rua General Osdrio, 264 -Cenlro - CEP 79.025 - Campo Qrande- MS 

Calxa Postal 1.04d — Telefone: (067) 383-1604 






1 




LIVRARIA 



CIENCIA NOVA 



EXCLUSIVAMENTE LIVROS DE INFORMATICA 
LIVROS E REVISTAS IMPORTADAS 



ESTABILIZADOR 

FILTRO DE LINHA 

CAIXA COMUTADORA ETC. 



COMPLETA LINHA DE SUPRIMENTOS: 

DISQUETES 

FORMULARIOS 

ETIQUETAS 

PORTA DISQUETES 

CAPAS 

Av. Presidents Vargas, 542/301 —Tel.: (021) 233-4045 



' Despachamos p/todo o Brasil 

* Remessas feitas por reembolso Postal 



SOFTWARE & HARDWARE 

• JOGOS 

• APLICATIVOS E UTILITARIOS 

• MAMUAIS 

• MICROS E PERlFf RICOS EM GERAL 
(Temos o mKnor prei^, consulte-nosl) 

» ADAPTAgOES E TRANSCODIFICAQOES 

• GARANTIA TOTAL 

• MANUTEN^AO E ASSISltNCIA T^CNICA 

PROMOQAO DO MES (A vista ou em 2 vezes) 

• EXPANSAO de MEMORIA para 1 Mb COM ClIOCK (Original) 

• CHIP SUPERAGNUS (Com certera o menor pre^olj 
1NSTALACA0 GRATIS 


Games 

Rua Sao Francisco Xavier, 46 — Loja 

Largo da 2' Feira — Rio de Janeiro — RJ 

CEP 20550 — Em frente ao MetrO 


MSX 

• jogos (msxi. msx2, megaram) 

• utiutArios 

• linguagens de pr0gramaf;:a0 

• GRAVACOES em DISQUETES (5 1/4 e 3 1/3) 
. PERIF^RICOS EM GERAL 

(A vista ou em 2 vezes, consulte-noa') 

• GARANTIA TOTAL 
• MANUTENCAO 

• ASSISTENCIA T^CNICA 


VIDEO-GAMES E CARTUCHOS 

NACIONA'S E liVIPORTADOS 
(A vista ou em 2 vezes, o menor pre^o) 

• GAME GEAR • MEGADRIVE/GENESIS 

• NINTENDO/PHANTOM • SUPER FAMICON 
' NEO GEO 


Para maiores inform a goes, solicite nosso Caialogo de Pre- 
50s e Produtos por carta ou visile-nos em nosso 
SHOW-ROOM 




COOPER DATA 

Informitica 



(021)722-8737 
717-4091 



DESPACHAMOS PARA TODO BRASIL 



SIST. INTEGRADOS^DESENVOLVIMENTO ESPECIFICO 






Cadastros 














Contas a Pagsr 










Contas a receber 




J^^Z^ 


=- 


Gerenclamento 


-= 


crU^ 




Estoque 










Comerclat 






















""*"" 







" Integragao total entre sistemas 

• Facil Manuseio (manual On Line) 

• Treinamento e acompanhamento 
permanente. 



Manutengao atualizada 

Dinamismo na atualizagao de 

versoes 
Compativel com outros Softwares 



PROMOCAO 

SUPRIMENTOS 

FORM. 80 COL 1 VIALISO 
FORM. 80 COL 1 VIA 
MICflOSERRILHADO 
FORM. 80 COL 2 VIAS USO 
FORM. 132 COL. 1 VIA USO 
FORM. 132 COL. 2 VIAS USO 
FITASEXTRALIFE 
DISQUETES 

FORMULARIOS 
PERSON A LIZADOS 

CONDtgOES ESPECIAIS 
PARA REVENDAS 



APLICATIVO 



Mantenha sua locadora sob controle 



Controle de locadora 



PC 


Micro: IBM PC/XT 


Membria; 512 Kbytes 


Video: CGA 


Linguagem; Clipper 


Requisites: Winchester 



n Ricardo Borges Gomide 



Nesta ediccio publicamos a terceira e ultima parte do programa Controle de Ijocadora. 



* FP.GGP:.yiA CONTHuLI DE LOCADORA 


TIME=1 


* PEOGiLiLMADCE KI^'rtP.DO B0EGE5 GOl-nCE 


DO WHILE TTHF,1230 


i MODULO C0M5ULTA FOR NOME ilOCanoS.prS) 


TIME=TIHE-fl 


i 


ENDDG 


5ET IMTENSiri' ON 


9 I5.t SAY ■■ 


U5E LOCA 


EETUEN 


IMF = -M/.0" 


PROCEDURE NOME 




SET COLOE TC U»* 


DO WHILE IMF = -NAQ"' 


@ 15.2 SAY "NOME NAO K-iiJONTEAr-O- ! " 


9 i.l CLEAE TO 15.77 


SET COLGE TO U 


SET CGLGP. TO W+ 


TTMF-1 


9 *.2 SAY -CONSULTA PGE NOME- 


DO WHILE TIME.i£5S 


SET COLOE TO U 


TIME-TTHF*! 


TKOME-SPACEf^ai 


ENDDG 


3 6,2 SAY "Er.tre NOME '■ GET TI-I'.ME PICT "C-!" 


? 15.2 SAY '■ 


EEAD 


EEnJEiN 


IF T^-IUME=SPACE(*») 


PEGCEDuEE ALUOADO 


USE 


SET COLOR TO W** 


EETUEl"; 


i? 15.2 SAY "ESTE FILMt ESTA ALTGAIG ' ^ i - 


END IF 


SET GGLGE TO W 


LOCATE FOE NOME=TNOME 


TIME=1 


IF EOFC 


DO WHILE TTyF-;l£@3 


DO NOME 


TIME=TIME-'l 


EE'l'Uk:: 


ENDDG 


ENDir 


9 15.i SAY ■' 


iMP="5IM" 


El~TF-N 


ENDDG 


PROCEDURE LUC ADO 




SET COLOR TC W** 


IF iMy='SIM" 


9 15.2 SAY "ESTE FIT,MT: ITAC ESTA ALUGADG" 


? 5.£ CLEAE TO 13,77 


SET COLOR TG W 


DC TFT A 


TiMr=: 


EN-r? 


DO WtllLE TIME, 12^3 


3IMP=5PAC"rli 


TIME:!!!^-: 


DO WHILE .NOT. QIM? t "SN" 


ENDDG 


oimp=5F-a:E'1; 


5 15,2 SAY '■ 


SET COLOE TO G+ 


EETJkh" 


-? 15. £ SAY -Gutra o:.r,i',(lU '5,-H) '■ OET yiVA't PIC 


r '■ PROCEDURE CLOCA 


pi .. 


9 LIN. 2 SAT "LOCAIOE ■ ■' GET TLGCA 


READ 


9 LIN.SS SAY "COD. LGC." GET TCOLD 


ENDDO 


CLEA.S GETS 


:F 5IMP="5' 


EETJ?^: 


DO L0CA1-IC5 


PEOCELUEE Ei,-L 


ELSE 


REPLACE ALUCADC WITS TALUGADG 


RET^JPJ'I 


REPLACE ECGLG WITH TCGLG 


END IF 


REPLACE LATA WIT". DATE C^ 


■f FsoGFji:-!' f.::aedo bceges ggt-cdi 


DAT=:rATE*i +1 

REPLAG3 jADE WITH DAT 

REPLACE HOFJi. WITH TIME > 

PiET^'P^-- 


■* PROGF:,"ytA:-G";. EICAEGO E0F;GE5 GOMIDE 

* MODULO AEQUIVC PEGCEDUEE=. i locii'TOC. Pf^i) 


FEOCEliUiiE CGDIGO 

SET COLOR TO W^* 


FEGCEDUEE z:-'. 

EEPLACE ALUGALG tjitH TALUi~ArG 

EETJP;:-: 
PEOCEDUEE TELA 


9 15.£ 5AV -XODIOO NAO ENCONTEADOI ' ! ■' 
SET COLOE TO W 
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/MS SBTViCDS 




ATV 



TV 



MONITOR COLOR 



• Transforme seu televisor 
em monitor colorido. 

• Show room no local 

• Venha conhecer! 



CADASTRAMOS 

REVENDEDORES 

AUTORIZADOS 



UM PRODUTO COM A QUALIDADE FHESK 



PERIFERICOS 



DRIVES 

PC's 

IMPRESSORAS 



NO BREAK 
ESTABILIZADORES 



LIGUE E CONFIRA! 



ASSISTENCIA TECNICA 



IMPRESSORAS 
PC XT 

CONTRATOS 
AVULSOS 



Ifi! 



inTECIJL 

HAnD/SDFT 




Rua Major Avila, 260 — Sobreloja — Tijuca 

Riode Janeiro — RJ — Tels.: (021)254-4933 264-0379 




NOVIDADES 



• Para voce que deseja se distrair 
com seu PC-XT-AT compativel, nos 
temosasolugdo: 

• Os mais sensacionais jogos do mercado 

• Mais de 400 tituios em jogos para 
PC/XT/AT 

•Garantimos por 30 dias a grava9ao dos 
jogos 

• Atendemos pedidos por telefone ou 
carta 



•Garantimos o menor prazo de entrega 
possivel 

• Tamb^m trocamos jogos 

•Ligue-nos solicitando nosso cat^fogo e 
maiores informa^oes, nao esquecendo 
de especificar o seu equipamento 

AG INFORMATICA 

Cx. Postal 3901 - CEP 70084 - Brasilia - DF: 

Tel.: (061) 245-6979 



QUEMDISSEQUE 

COMPLETAR / nova promogaol 
QUA f^m Cf^Af\ / Duas ediQoes antigas 
wl «h^«. W / PorCr$ 1.750,00. 

DE MICRO 
SISTEMAS? 



JA NAS BANCAS! 



/Micro 




UTILIZE 

ESTE 

ESPAgO! 



A MICRO SISTEMAS 
oferece a seus 
clientes este servigo 
especial. 

Com esta opgao de 
espa^o e custo. 
ninguem vai deixar 
de anunciar. 

Consulte-nos pelo 
telefone 

(021) 232-0653 



^._yHicro 
Sistemas 



"r-;,i ■.■-:1:jF. .J m 

I? 6 . £ SAT "CJDIi^C; ■" GET -OBI^G 

^3 7.2 SAY 'TILl-IE " GET NOME 

5 S,i :.AY "GEMESO " SET GEME 

? 9.^ SAY "TEMPO " GET TEMF 

S 10,2 oAV "QUALIFICACA-D ." GET 3UA1 

? 11,£; SAY ■■5I5TE>L^ " SET 51 5T 

5 li,Z; 5A" ■■Alio ■ " GET AlIO 

? :*■:.£ 5AY "VEL0CI2ADE :" SET "EL -^ 

(S i5.^ 5AY ■■ALUGADC " GET ALUGAIJO 

CLEA7. GET:. 

IT ALUGArG="SIM" 

3 15 -i BAY "CDDIGQ DO LDCABOE ." GET RCC^L 







IF SAr-E^-DATEH 

5ET CGLCE TO W+ 
ENDir 
e 17,2 SAY "DATA DEVOLUCAD " GET EADE 

CLEAR GETS 

SET COLOF; TO M 
EKDir 
PXTJEN 
FP.GCEDUP.E TELAl 

SET C0L3R TO U 

? 6 , ci iA" "C-OITGO " Gil i ■-■Juj 

I? ?.; SAY "NCME ' GET LDCA 

? 3.i SAY "TfLATAj-IENTO " GET TS.=.T 

» 9,£ =.A" "EKI'ERECD " GET ENDE 

5 le :; SAY "EAIF-EO " GET EAIP. 

e UAZ SAY "CIDAIiE " GET CIDA 

e 11 i SAY "ESTArO ■"■ GET E5TA 

i? ll.iS SAY "CEP "' GET CEP 

I? 12.2 SAY "TELEEDKES " GET TELE 

? 15.2 SAY "CPE ■■ GET CPF 

i" 1^,2 SAY ■■AinVEESAP.IO ■ " GET Al-uV 

S 15.2 SAY "DEPE:-riiE:-'TE 1 ;" GET DEPi 

9 16,2 SAY "DEPEN3EMTE I " GET SEPi 

e 17,2 SAY "A1-!IVES5AP.I0 DE? . 1 :" GET AlUVl 

9 17,42 SAY "AZ'TIVEESAEIO DEP. 2 . " GET A;-'IVa 

pi torn' 

PEDC-E2t:p.E /.Bia-'BCWA 

SAVE SCREEN TO SAIR 
DO wHILE .T. 

SET IKTENSITf OE: 

SET COLOR TO U+ 

9 16,22 CLEAR TO 21. EE- 

9 IS, 22 TO 21.55 DOUBLE 

9 i?,29 SAY " Saii" clO Siftesia " 

GiU=5PACEfll 

DO WHILE .NOT. iW i "5N" 

QW=SP.^CEiIi 

SET COLOR TC W 

e 29.23 SAY " Teii certezi ^S-.Ni ^" 
GET QW PICT '■?'" 

READ 
END DC 
IF QW="S" 

RELEASE ALL 

USE 

CLEAR 

SET COLOR TO 

SET INTENS:~ ON 

QUI T 
ELSE 

CLEAR 

SET INTEKSIT"/ ON 

RESTORE SCREEN FROM SAIR 

RETLTii-: 
ENDir 
ENDDD 



RETL'FJ"-' 
PRDCEOURE MEl-nj 
DO LOCA 
RETO?.!-! 

+ FRnGflAl'^r.-CONTRDLE DE LOCADORA 

* PRCGPJU-Ij^.DOR RICARDO BCRGE5 GOMIDE 

t MODULO IMFPJMIR T0D05 FILME5 f lOCaUi5.PrS} 

i 

USE LOCA 

INDEX ON NOME+CODIGO TO LOCA 

USE LOCA INDEX LOCA 

DO WHILE .T. 

? 2.2 CLE.i.R TC 13,77 

SET COLOR TO V+ 

i? 2,2 SAY "FIU-IES" 

? 5,2 SAY "IMPRIHIR LISTAGEM" 

i» 4,2 SAY "IMPRIMIR TliDOS FILMES" 

SET COLOR TO W 

9 S,il SAY "Lisiue a IMPRES50RA e creisione iEN 
TERJ PSl'5 iRPi'imrr" 

9 9.12 SAY " ou tecu [ESC-] fafa retOf 

TECLA=INKEYf8l 
IF TECLA=lo 

EXIT 
EITDIF 
IF TECLA=27 

RETUFiT 

ENDI r 
ENDDC 

SET COLOR VJ W 
l» 11.53 SAY "iBCriliiindO !'!" 
SET CONSOLE OFF 
SET FRIirr OFF 
SET DATE BRITISH 
SET DEVICE TO PRINTER 
LIN=si 
PAG^e 

DQ VTilLE .NOT, EOF H 
IF LIN>6B 

EJECT 

PAG=PAGti 

SET FEINT ON 

iiii ATIVA CAPJ1.CTERE 19 CPI (NSGRITO+ENFA 

TIZADCi **** 

'^ CHRii?) +"' '■+CHR(24? 

SET PRINT OFF 

9 1,13 SAY "RVIDEO Vl.lS Conlrole 5e LOCid 
ora - RICO SOFT PC 15?1" 

5 2.12 SAY ■■ 



SET PRINT ON 

an ATIVA CARACTEEE 1? CPI iKEGRITO+CQMP 
RIMIDG5 **■*■♦ 

" CHRi27l+"i "+CHRf22l 
SET FEINT OFF 

e 4,e SAY "PAG "tSTRiPAb.51 
I? 4,25 :--AY " DATA "*DTOC (DATE O 'i 
9 5,B SAY "LISTAGEM DE FILMES" 
5 7,8 SAY "CODIGO- " 
e 7.11 SAY "FILl-lE ■■ 
? 7.57 SAY "GENERO:" 
9 7,78 SAY "TEMPO:" 
9 7,91 SAY "QUALinCACAG " 
9 7.137 SAY "SISTEMA:" 
9 7,113 SAY "ANO:" 
9 7,123 SAY "VEL. ■" 
_^LIN=9 
END I F 
SET PRINT ON 



Yes 
e 



nos tern OS 







Programa genuinamente nacional. 
Imprime seu iogotipo quando voce usa 
a impressoradomicrocomputador. 

Conhs^a. tambem, ETIQUETA TiMBRADA 
e CHEQUE TiMBRACX)- 







rBRSX)NALi/J SI i 'S 
REIATORIOS 



(021) 263-4386 

ESTf^TEGIA SC 

AV. PRES. VARGAS 962/414 

RIO 



/I/IS servicDS 



•*•••• ****** 

SOFTWARE DE 

DOMJI^IO PUBLICO 

IBM-PC ecompati'veis 

Processadores de Textos, 
Planilhas Eletronicas, Bancos 
de Dados, Desktop Publis- 
hing, Linguagens, Jogos, Va- 
cinas c/Virus, Gr^ficos, Fi- 
nanceiros. Desenhos para 
Autocad, Imagens e Anima- 
gOes para Animator. Todos os 
pro gramas acompanham 
orientagao para instalagao e 
operacao. Convertemos seu 
arquivo grafico de/para .GIF, 
PCX, PIC, etc. 

InformagOes: ART & TEXT — 
Services e Sistemas — Rua 
Jo5o Vidal, 77 — Ponta Negra 
- 59085 - Natal - RN — Fo- 
ne: (064)219-2228. 

*•*••• •••••• 



75s 



RC3US 



COMPUTADORES 

E 
SISTEMAS LTDA 



DESPACHAMOS PARA 
TODOOBRASIL 



Tudo em Inform^tica 

• Autorizado DDK 

• Pc/XteAt386 

• Softwares p/MSX 

• Monitores 

• Impressoras 



Av. Contorno, 4182/3 
Tel.: (031) 227-7646 



CalxaP0Btal314« 
Balo Horlionta - MO 



UIDEO GAMES 



NINTENDO 

MEGA rRIU£ 

SUPEfi FftMiCOH 

GAME (iEAH 
MASTER SVSTEM 

GAME BOV 

ACESSORiOS 



AS ULTIMAS NOyiMDES 

E OS MAIS RECE-NTES 

LANCAMEHTOS. 



RECURSOS DIGiTi^IS 

R CONS BROTERO 589 

COHJUNTO 42 

METRO MARECHAL 

01154 S PAULO -SP 

FONE (011) 825-5240 



D.A.C. 
IIMFORMATICA 



MICROS PC XT-AT 

• Kit p micros 

• Impressoras (lodas) 

• Monitores PC/MSX/Apple 

• Estabilizadores/No Breaks 

• Gabinetes/Cabosp/ impressoras 

• FormulSrios/Disquetea 

• Mesas p/ PC e Impressoras 



DRIVES PARA MSX 

• Micros MSX novos e seminovos 
•Kil2,0e2,0 + Plus 

• Modem p/ MSX/lnlerface 

• Mega Ram Disk/ Expans3o de Slots 

GAMES ECARTUCHOS 
Superpromocao p/ Drives 



S 



(011)62-6798 
871 0277 



Shareware e 
Dominio Publico 

Jogos, desktop, utilititrios, etc... 
Biblioteca para dBase e Clip- 
per ( + de 50 mega de rotinas 
e programas). 

- Atendimento R^pido... 
■ Ultimas versoes.., 

- Solicite CatSlogo Gratis,.. 

ARTISOFT 

Fone: (Oil) 858-2183 

Caixa Postal: 16303 

CEP: 02599 

Sao Paulo - SP 




PC GAMES 
CLUB 


"Nem so de trabalho 

Vive seu PC... 

De uma distragao para 

oseu Micro". 

Temosomaioracervode 

jogos para PC XT/AT. 
SaomaisdeSOOtitulos 
Solicite catalogo gratis 
ouconsuiteasLiltimas 
Micro Sistemas. 

Consultetamb6ma nossa 

biblioteca de Shareware e 

Dominio Publico. 


Caixa Postal 1ffi)? 

CEP 20001 - Rio de Janeiro 

RJ 

Telefone (021) 580-6455 





S.O.S. MICRO 



AGORA EXISTE UM LUGAR ONDE 
VOCE ASSISTE SEU COMPUTADOR 

SERCONSERTADO. E MAIS: 
QUERF.NDO TRAGA VOCE MESMO 
AS PEQAS NECESSARIAS PARA 
REPOSIQAO. rUDOISSO 
COMA NOSSA GARANTIA.. 
ORQAMENTO 
SEM COMPROMISSO 
ACERTE CONOSCO! 



LOCAPitinC 




RUA ACRE, 47 

-LOJAA 

233 7996 - 253 9064 



1300 PROGRAMAS 
PARA PC/XT/AT... 



SOLICITE 

CATALOGO 

GRATIS 



KANtiCUS 1 

o 
G 



SOFTWARE DE DOMINIO 
PUBLICO E SHAREWARE 



AREAS: Banco de Dados, 
Comunicacao, Dos, Editores 
deTexto, Planilhas, Graficos, 
Medicina, Astronomia Jogos 
Educacionais, Cad, (JesWop 
Publish, Anti-virus, Clipper 
Dbase, C, Pascal e outros. 



KANOPUS 



I Cx.Posta[:8301 -80011 -Curitiba 
^ Fone: (041) 222-0277 



Pr 



GRATIS! 


SOf TWHE DE 


DUMINIO PUBLICO 


•WINDOyVS-UIUS E JOGOS 


•FONTES PARA USER 


•PLANILHAIAS-EASYI 


•ClOHE OO-N0fiTON-CA[MER 


•COIECAO PARA VENTURA. 


PAGEMAKER .WOROPEfifECI 


^PROC. lEXIOIGALAXyi 


■GRAFICOS-OANCAD. PRINT- 


MASTER, PRINTSHOP 


"ANTIVIHUS.EDUCATIVOS CO- 


MUfilGACAO. JOGOS E OUTROS 


'APENAS CRJ 1 300,00 P/CO'PIA 


SOFTEK -(021)273-1790 


RIO DE JANEIRO - RJ 




CHEaj 




Especiallzado em 

Software de Dominio 

Publico (Aplicativos e 

Jogos) para IBM-PC e 

compativeis. 

Por apenas Cr$1.700, a 

copia 
Pe^a um Catalogo Gratis 



TEJ.: 

fQU)26a-flU37 



TechnoSoft 



Implanta^ao de Sistemas 
•Editora9ao Eletronica 




• Jogos para: 

MSX1.0/l.l/Z0/2-(- 

e 

PC XT/AT 



^m 




TEL FAX:(011)87" 1883 



TOY GAMES 



MSX1 /MSX2/MSX2 + 

Jogos G apljcaljvos • Ultimas novidades • Perifericos DDX • Drives 3 
1/2 e 5 1/4 • Megaram 256 / 512 / 768 • Modem • Expansor de Slots • 
Cartao 80 Coiunas • Kit 2.0 e 2.0 + • Memory Mapper • Caixa de Som 
p/computadores (Langamento) 

PC XT / AT 

JoQos e aplicalivos de Dominic Publico 

PERIFERICOS 

IMPRESSORAS "SEANNERS • PLACA PARA FAX/PC (LanQamento) • 
DRIVES* 

AMIGA 500/ 1000/ 2000 

JOGOS APLICATIVOS ■ ULTIMAS NOVIDADES 

PERIFERICOS 

DRIVES EXTERNO • EXPANSAO DE MEMORtA 1 MEGA D.D.X (Lanca- 
manto) • RF MODULADOR A — 520 • GENLOCK • DIGITALIZADOR DE 
IMAGEMESOM 

ASSISTENCIA TECNICA — MSX — PC - AMIGA • ALINHAMENTO DE 
DRIVE • CONSERTO EM GERAL • TRANSFORMAQAO TV / RGB • 

SUPRIMEIMTOS 

DISQUETES 5 1 /-I E 3 1 /2 « FORMULARtO CONTlNUO - ETIQUETAS. 
FITAS E IMPRESSORAS • LIVROS E REVISTAS 

ABERTO DE 2? A SABADO 

TOY GAMES INFORMATICA LTDA. 

Rua Galvao Bueno, 714 Cj. 16 — Liberdade — Sao Paulo — SP 

Estaijao Metro Sao Joaquim 

Caixa Postal: 7716 Cep; 0106'! — Fone (01 1 ) 277-4878 

DESPACHAMOS PARA TODO O BRASIL 

Aceitamos cartao de cr^dito (Bradesco, American Express) ou Paga- 
mentofacililado 

Solicits nosso catalogo gratis 



PLACA DDFAX 96 PARA PC 
XT/AT 

Transforma seu micro em uma maquina de fax com disca- 
gem automalica, cadastro de at6 999 clientes e programa- 
qSo para envio. Transmits e recebe com velocidade de 9600 
BPS. Recepcao aulomatica durante operagao de outros 

programas. 

KIT DDX MSX 2.0 + 

Implementa no seu micro maior resolugao, maior velocida- 
de de manipulacao de graficos. retogio real com bateria, 80 
coiunas, 256Kb de MEMORY MAPPER e 19.268 cores. 

MEGA RAM DISK PARA MSX 

Expansao de memoria com sistema operacional residente, 
disponivel em 3 modelos diferentes: 256, 512 e 768 Kbytes. 
Funciona como se fosse um drive tempor^rio para o seu 
MSX. 

DDX MODEM PARA MSX 

Transmite e recebe em 1200/75, 300/300, 
1200/1200, BELL e CCiTT. MonitoraQ§o de iinha, Discagem 
rediscagem e atendimento automatico. Programa para 
video texto embutido. 

KIT PARA DRIVE DDX 

Composto de gabinete metalico, fonte de aiimentagao, in- 
terface DDX, cabo para dois drives, manual e sistema ope- 
racional DDX DOS. 




DATATEC 



Rua Domingos de Moraes, 770 - Loja 33-B - 
V. Mariana - S. Paulo/SP Ao lado Estagao 
Ana Rosa Metro - FONE/FAX: (Oil) 571-7083 



**** ATIVA CAPJiCTSEE 17 CPI iCOMFRIMIDC.) 

■^' r.HR f27) +■' I ■■tCHEE'ti 

SET PRINT OFF 

9 LIN.8 SAY CODIGG 

? LIN. 11 SAY HOMZ 

5 LIN, 57 SAY GENE 

§ LIN, 73 SAY TEM? 

e LIN. 91 SAY OUAL 

I? LIN.ie? SAY 5I5T 

9 LIN- lis SAY AN'O 

3 LIN, lis SAY VELD 

LIH=LIN+-1 

SKIP 
END DO 
EJECT 

SET DEVICE TO- SCriEEN 
SET FEINT OFF 
SET CONSOLE QN 
USE 
EETL'PJ^I 

i PEOGF;.'iJ'L*.:CnNTEOLZ DE LOCADOEA 

t PEOGPJU-y'.DGP.'EICAEDO EOEGES GOMIDE 

t MG3uLD:ELI>nNAE TDDOS EEGI5TE05 (lOCatuo.r'T 

SET INTENSITY ON 

% ^.Z CLEAR T3 13.77 

SET COLOR TO M+ 

§ 4,Z SAY "ELIMINAE TODOS EEGISTSOS" 

SET COLOR TO ¥ 

AA=SPACE (1) 

DO WHILE .NOT, AA S "SN" 

AA=SPACEa) 

SET COLOR TO G+ 

e 6.2 SAY "COPJifUa eliIiiinaC50 (5/N5 
Pir.T "91 " 

READ 
ENDDO 
IF AA="N" 

EETnpi; 

END IF 
UIl'IP^SPACEil; 

do while .not. wimp 5 "sn" 
wimp=space;ij 
set color to g+ 

I? 7,2 SAY SPACE CiS) 

? 7,2 SAY "Tern Ctj-tesa fS/N'i 



** + * 



i-<l 



GET AA 



GET WIMP PICT 



READ 
ENDDO 
IF HIMF="S" 

USE LOCA 

2A.? 

SET COLOE TO W>* 

8 15.2 SAY "TODOS 05 EEGISTEOS ESTAO ELIMINADG 
SI"" 

SET COLOR Tu '■' 

TIMERS 

DO WHILE TiMEaseie 

TIME^TIME+1 

ENDDO 

USE 

RETUPJ-r 
ELSE 
USE 

REIT-TPif^- 
n-IDI F 
i PE0GRAI'U'..CDNTROLE DE LOCADDPJi 

* PP.OGF^y'LADOE.EICARDn E0R6ES GOMDE 

* MODULO :ELI14INAR UM EEGISTRO (ICCauBio.Pri) 

SET INTENSITY ON 
USE LOCA 
IMP="HAO" 

DO WHILE IMP="NAO" 
9 i.Z CLEAR TO 13.77 
SET COLOR TO V+ 

I? ^,2 SAY "ELIMINAR 'Jl-I EEGISTRO" 
SET COLOR TO W 
TCCDI=5PACE!5) 

? S ,2 SAY "Entre CODIGO ■" GET TCODI PICT "Si" 
READ 

IF TCQDI=SPACEi:e.! 
USE 

END IF 

LOCATE FOR CODIGQ=TCCDI 
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IT EOFM 

DO rnriGn 

ENDir 

ENDDC- 

IF IMP = "c.IM" 

9 5.Z CLEAR TO 16,7? 

DO TELA 
ENDIP" 

AA=5PACE(1) 
DO WHILE .NOT. AA S "SN" 

AA=5?ACEfi) 

SET COLOR TG G* 

9 lo,i 5AV "Connrsid el iBiinacac (S 
A PICT "C-i ■■ 

READ 
Ei-roDG 
IF AA = ".J- 

DELETE 

PACK 
ENItlF 

WI>:fp=SPACEil! 
DO WHILE .NOT. WIMP i "Ji-?" 

UIMP=SPACE(i:i 

SET COLOR TO G+ 

9 18.2 5AV 5PACE(*9! 

9 is.L 5A7 "Oiitra eliKinj.cac '5/N) 
PICT "9'" 

READ 
ENDDO 

IF UIMP="5" 
DO LOCAUl-IS 
ELSE 
USE 
RETLTRl-I 
EHDI r 

* PP.OGF-y-L'iCONTP.OLE DE LOCADOPiA 

t PP.CGF-=L;l'.IiCT. EIIARSO EC53E-5 GOMIDE 

* MODULO HELP DO SI5T^>L-. ■KelP.^Tii 



GET A 



GET yiHP 



PASj^METERS Ml,H£,Mi 

IF M1="'HEL?" 

EETUR]-! 

ENDI? 

5A\T: SCREEl-J TO HELP 

DO WHILE .T. 

SET COLOR TO U 

CLE.1.R 

!? 4.3 TG 21.71 DOUBLE 

SET COLOR TO U+ 

f 5,9 TC £3. -78 DOL^.LE 

9 *,13 SAY ■' RVIDEO Vi.3 ConlroU dt LoCaiorA - P.IC 

SOFT PC 1991 ■■ 

9 ZX.ZZ SA" ■* CDCTii.h: (cl SICARDO BOEGES GOMIDE " 

SET COLOR TO W 

9 7,31 5AV " HELP AO USUAEIO " 

? 9:1£ SAY "D EVIDEO Vl.a UUliZS UBi5. in'£rfdC€ 

coa if£ya.r jo" 

9 IS, 15 SAV "q,U£- d tDm.; SUutO Sia^Ui de Str litili 

Zddo." 

9 11,12 SAY "VC'ce pode escciher a oDiraci usand 

as. st-ta£. pa:a" 

? 12.12 SAY "Bovtr a bsrra de c-pcoes- e Uclar '^ENT 

ER] sob a sesma" 

9 13.12 SAY ".la ci:,<f,e eicolhtr a opcao RETORi-ia Psra 

vol tar ao sienu" 
-5 1+ , 15 SAY "anteri-JT. " 

9 15,12 SAY "C.5S0 voce UTiKa eSCOlKidC Vlhd opcao PO 

j- ensano. pre=-s:o-" 

? 15.15 SAY "ne [DITERj TiA Pfiaeifa Parte da fttsma 

para retcrnar." 

SET COLOR TO B/M 

e 19.23 SAY " TECLE [E5CJ PA2A 5AIR " 

SET COLOR. TO 

TT=Il-IKEY!3i 

IF TT=27 

EXIT 
ElIDiF 
ENICO 
CLEAR 

KEYECARL CHR!275 
RESTOfiE SCREEN FROM HELP | 



C0NHE9A MELHOR PACOTE 
ECONOMICO DA TEMPORADA 



E isso mesmo. O mats economico pacote da temporada e uma assinatura anual da sua revista preferida de infor- 
matica- 

Veja so se nao e uma vantagem e tanto: voce page 9 e leva 12 edigoes. Uma pechincha de dar agua na boca. 

Nao e so Isso nao. Atente para o fato de que MICRO SISTEMAS e a pnmeira revista braslleira de microcomputado- 
res. Sao dez anos de lideranga no mercado e muita histona para contar 

A nossa malor tradigao continua sendo nosso carro chefe: nas paginas da MICRO SISTEMAS voce encontra sem- 
pre uma analise do mercado de informatica. Alem e claro. dos melhores programas e rotinas publicados em revista. 

Nao fique ai parade. Faga as contas e comprove. Depots e so preencher o cupon abaixo e entrar para o time dos 
usuarios bem informados. 



Nome: 








EndefepO" 


Cep 


Cidade: 




UF 


Equipamento: 


Prof jssai) 




Data nasc. : 




Ass 




Data; 





Esiou enuiando o cheque n" 



nominal S ATI EDITORA SA, 



reterenie a uma assJnalura anual (12 numeros) de MICRO SISTEMAS 




Analise, Teleprocessamento e 
Informatica Editors S.A, 

Rua Washington Luiz, 9 gr 403 
Rio de Janeiro - RJ - Cep: 20.230 



APLICATIVO 

Facilite a organizacao de seus discos e programas 

CADPRO: 

Um sistema sob medida 



PC 


Micro: IBM PC/XT 


Memoria: 512 Kbytes 


Video: CGA / EGA 


Linguagem: dBase 111 + 


Requisites: Impressora 



n Daniel JerozoUmski 



Esta e a segunda parte do artigo publicado na edicao anterior. 



-) CADPRO ■- Cadastro de Progratnas 
Daniel Jerozoliiiski 
Fevereiro, 1991 
MODULO ADICIONAR - ADICIO.PRG 



« +- 

* 1 
» 1 

* \ 

« ! 

, + + 

SET TALK OFF 

SET BELL OFF 

USE PROGS INDEX INO 

SET COLOR TO N/W+ 

spaco=SPACE(80) 

3 «,« SAY Spaco 

SET COLOR TO W+/R 

3 1,2 CLEAR TO i«,78 

3 1,2 TO i,78 DOljeiE 

a 3,28 SAY 'Adicionar Novos Programas' 

DO WHILE .T. 

a 5,2 SAY 'Nijnero total de registros: '+5TR(RECC0yNT() 



7) 



9 7,29 SAY 'None do Proqraffla' 

3 6,22 TO 9,5i DOUBLE 

Hnonie=SPACE{23)^ 

Mversao^ ' 

Htipo=' \ 

Mdiscos=' 

Hbytes=' 

Hnota=' 

ftdata=' / / ' 

Hdata=CTOD(Hdata) 

Hdesci=SPACE(35i 

iidesc2=SPACE(35) 

a 6,26 GET Hnome 

a ie,2 TO 19,58 

9 ii,3 SAY 'Nota ^'-0-iO ) 

3 12,3 SAY 'TiPO 

9 13,3 SAY 'Uergao 

3 14,3 SAY 'Data de aquisicao 

a 15,3 SAY 'Discos que ocupa 

3 16,3 SAY 'Bytes qiie ocups 

a 17,3 SAY 'Descncao 

3 18,23 GET hde3c2 

SET COLOR TO B/BG 

3 1«,59 CLEAR TO 19,77 

a ie,59 TO 19,77 DOUBLE 

3 11,6? SAY 'Tipos disponiveis' 



GET Hnota 
GET litipo 
GET Mvergao 
GET Mdata 
GET HdiscDs 
GET iibMtes 
GET Mdesci 



3 13,62 SAY 'U-iitilitaria' 
a 14,62 SAY 'G-grafico' 
9 15,62 SAY 'J-jogo' 
3 16,62 SAY 'A-aplicativo' 
3 17,62 SAY- 'S-siraulador' 
3 18,62 SAY 'D-adventure' 
SET COLOR TO y+/R 
READ 

HtJPo=yPPER{f^tipo) 
IF linome=SPACE(23) 
CLOSE DATABASES 
3 2,2 CLEAR TO 19,78 
RETURN 
ENDIF 

tipo_valido=t:50GAUJ] 
IF .NOT. (Htipo t tiPO-valido) 
3 2i,5 SAY 'TiPO invalido ii! ' 
? CHR{7) 
yAIT " 
9 2i,5 SAY ' 
LOOP 
ENDIF 

SEEK Hnome 
IF .NOT. EOFO 

8 2i,5 SAY 'tssE prorjraffla ia esta c^dastrado 
? CHR(7) 
kAIT " 
3 21,5 SAY ' 
LOOP 
ENDIF 

Hdesc=t1de5clt'ioesc2 
APPEND BLANK 
REPLACE Oesc UITH Mdesc 
REPLACt Nome iJITH l^noste 
REPLACE Uersao yiTH «versao 
RE^'lACE Discos WITH yAL(hdiscQs) 
REPLACE Butes UITH UALCHbytes) 
REPLACE Tipo WITH Htipo 
REPLACE Nota UITH yAL(Mnota) 
REP| ACE Data UITH Hdata 
ENODO 
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» ! -) CAOPRO - Cadastre de Programas 1 


TER' 




)( 1 Daniel Jerozol idski 1 


READ. 




» 1 Fevereiro, 1991 1 


3 21,3 SAY ' 




» 1 MODULO DE IMPRESSAO - IMPRIHIR.PRG 1 


J 






8 4,3 CLEAR TO 19,73 

3 6,3 SAY 'Entre- com o cabecalho: ' 




00 WHILE .1. 




SET COLOl? TO N/U+ 


8 7,3 SAY ')) prograsa se encarreqa de central 


zar {{' 


a 8.« SAY SPACE(8«) 


cabl=tCADASTRO DE 




SET COLOR TO W+/R 


] 




3 i,i CLEAR TO i«,7B 


cab2=[PR0GRAHAS 




3 1,1 TO 1,78 DOUBLE 


] 




a 3,27 SAY 'IHPRIMIR CADASTRO' 


cab3=SPACE(4«) 




USE PROGS ^ INDEX IND 


cab4=5PACE(6fl) 




t ipo_Esc=' 


cab5=SPACE(6e) 




3 9,3 SAY 'Tipo de deseja linpriwir : ' GET Tipo.esc 


cab6=5PACE(60) 




3 21,3 SAY '5e nao deseja ver algum tipo em especial,' 


cab7=SPACE(6«) 




i 22,3 SAY 'pressione Enter' 


8 9,8 GET CABi 




SET COLOR TO B/B6 


3 10,8 SET Cab2 




8 7,49 CLEAR TO 15.73 


a 11,8 GET Cab3 




3 8,5^ SAY 'Tipos Disponiveis' 


S 12,8 GET Cab4 




a 9,52 SAY 'U-utilitario' 


3 13,8 GET Cab5 




3 1«,52 SAY 'G-grafico' 


3 14,8 GET CabA 




8 U,52 SAY 'J-jogo' 


3 15,8 GET Cab7 




3 12,52 SAY 'A-aplicativo' 


READ 




8 13,52 SAY 'S-siMulador' 


cabl=TRIM(cabi) 




3 14,52 SAY 'D-adventure' 


cab2=TRIM{cab2) 




a 7,49 TO 15.73 DOUBLE 


cab3=TRIH(cab3) 




SET COLOR TO U+/R 


cab4=TRIM(cab4) 




READ 


cab5=TRIH(cab5) 




tipo_esc=UPPER(t!PO_e5c) 


cab6=TRIM(cab6) 




tipo_valido=[ UGJASD] 


cab7=TRIM(cab7) 




a 21,3 CLEAR TO 22,78 


3 4,3 CLEAR TO 19,78 




IF .MOT. (tipo-esc 5 tipo.valido) 


8 6,3 SAY 'Ligtie a impressora. posicione o papel 


corretatiB 


3 21.3 SAY 'TipQ invalido !m ' 


nte e acione a chave de linha' 




? CHR{7) 


WAIT " 




HAIT " 


pagina_nii(n=l 




a 21,2 SAY ' ' 


GO TOP 




LOOP 


8 4,3 CLEAR TO 19,73 




ENDIF 


SET COLOR TO W»/l? 




EXIT 


3 21,3 SAY 'Iniprifiiindo...' 




ENODO 


SET COLOR TO W+/R 




a 4,3 CLEAR TO 19.78 


SET PRINTER ON 




data.esc^' / / ' 


SET CONSOLE OFF 




data-e5c=CT0D(data_e5c) 


? CHR(i5) 




3 4,3 SAY 'Entre com a data a partir da gual ' 


space.3=SPACE(i««) 




a 7,3 SAY 'voce qijer que seja realizada a iwpressao: ' GET 


? 5pace_3+'Data: '+OTOC{OATE()) 




Data-esc 


? space_3+ 'Pagina niimero: '+STR{pa,gina_niiiB,5) 




8 21,3 SAY 'Se nao quiser especificar a data, pressione EN 


nuii_cab=i 





CLASSIC SOFT 



Tel. (011) 875-4644 



MSX - AMIGA - PC XT/AT 

RUA JOAO CORDEIRO, 489 — Freguesia do — Sao Paulo — Capital — Cep 02960 

ADQUIRA SEUS PROGRAMAS PELO REEMBOLSO POSTAL (SEDEX A COBRAR) 
Voc6 faz o pedido por telefone ou por carta e s6 pagard ao recebd-lo nocorreio. 



JOGOS E 


PERIFERICOS 


Jim^e PC 


APLICATIVOS P/MSX 


P/MSX DDX 


1. 2 PLUS, MEGARAM E MEMORY MAPPER 

• OS MELHORES E SEMPRE OS ULTIMOS 
LANCAMENTOS 

• TEMOS MAIS DE 2.000 titulos 

• PROMOQAO — 10jogos2grMis 
lOOjogos = 25 gratis 

• SOLICITECATALOGO GRATIS 


• Kit p/montagem de Drive 

• DRIVE 5 1/4 -360 6 720 Kb. 
DRIVE 3 1/2 720 Kb. 
MEGARAM GAME 

• MEGARAM DISK 256 / 512 / 768 

• INTERFACE 

• MODEM P/ MSX 


TEMOS JOGOS E 
APLICATIVOS 
PROMOCAO AMIGA/PC 

Cada 10 jogos ou aplicativos 1 GRATIS 
ATENDEMOS TODO BRASIL 
Solicite CATA LOGO GRATIS 



FACA SEU PEDIDO E SO PAGUE AO RECEBE-LO NO CORREIO DE SUA CIDADE (SEDEX A COBRAR) 

ATENDEMOS TODO O BRASIL 



DO UHILE Ni]f!i_cab{8 

l1SGNUH='CAfi'+STR(niini-[:ati.i) 
centro_c5.b^(130-Li:N(8MSGNUh))/2 
? SPACE(centrQ_cati)-^8MSGNUM 
ntJiB_c3.b=niiffl_c3b+l 

ENODO 

9 

DO CASE 

CASE riPJ--r=' ' 

? 'Tipos: A-APLICATiyO J-JQGO 
-GRAFICO S-5IWLAD0S D-ADVENTURE ' 
CASE Tipa_E5c='A' 

■) CHfifi4)+' 
2«) 
CASE TiP0_e5c='J' 

? CHR(14)+' 
CASE T!PO_ssc='U' 

? CHR(i4)+' 
2») 
CASE Tipa.esc='G' 

? CHR(i4)-*' 
) 
CASE Tipo,esc='S' 

? CHRa4)+' 
2«) 
CASE Tipo_e5C=^'D' 

? CHR(i4)+' ■ 

2«) 

ENDCASE 

IF TJpo-escO' ' 
•J ' 



'Not a', 



'Noffis 



', 'Uersao ', ' Tipo '. 



U-uTlLITARIO G 

APLICATIVOS'+CHR( 

JOG05'+CHR(23) 
UT!LnARIOS'+CHR( 

6RAF!C0S'+f:HR(29 

SIHULA[)0RE5'+CHR( 

AOyENTUSES'+CHR( 



ELSE 

9 

ENOIF 
7 

IF Tipo_esc= 
?7 'None 



'/yersao'/ Tipo", 'Nota'/ 



11 ' 
ELSE 

?? 'Nome 



Aquisicao Descricao' 



', 'yersao 



'.'Nota'/ 



'Nota'/ 



?? ' Aqijisicao Descricao' 
ELSE 

'>'> 'Noiie , Mersao'/ 



91 

ENDIF 
■J 



Aoaisicao Oescricao' 



?? ' Aquisicao Descricao' 

ENOIF 
7 

re9-r\uii=l 

00 yHlLE .NOT. EOFO 

IF (tiPO_esc=' ' .OR. tipo_esc=TIPO ) .AND. ( DTOCfOATA 
))DT0C(data-e5c) .OR. 5T0C{Data-esc)=' - - ') 
IF Tipo-BscO' ' 
tipo-iffipr=' ' 
ELSE 

tipo_i«pr=TIPO 
ENDIF 
00 CASE 
CASE DISCOS=e .AND. 3YTESO0 

9? HCini-i- ' '+yERSAO+ ' '+t ! P0_ t fflpr+ ' '+STR ( NO 
TA,2)+' ' 

?? STR(BYTES,7)+' bMtes '+DTOC(OATA)-^ ' '+OESC 
CASE DISCOSOe .AND. BYTES=0 

?? NOMe+' '+yERSAO+' '+tiPO_fi»Pr+' '+STfl(NO 
TA,2)+' '+STR(DISC0S,2) 

?? ' Discos '+DTOC(OATA)+' '+OESC 
CASE DISCOS=« .AND. BYTES=9 

"N0f1E+' '+yERSAO*' '+tiPO_!!SPr-^' '+STR(NO 
TA,2)+' ' 

->-> ' '+OTOCfOATA)+' '+DESC 

ENDCASE 

reg.nuffl-rsq-nijra-t-l 
IF fl eg .null -4^ 

reg-niini=i 

? CHf?(12) 

pag(na_nij(i=paqina_niini+i 

■^ 5Pace_3+ 'Paq ma nyniero: '+5TR{paQ!na-nujn.5) 

7 

IF Tipo_esc= ' 



ENOIF 

ENOIF 

SKIl^ 
ENQOO 

SET CONSOLE ON " 
SET PRINTER OFF 
a 2i,3 SAY ' 

3 6,3 SAY 'Pressione qualquer tecia para retornar ao menu 
UAIT " 
00 TELA 
RETURN 
n 4 -+ 

* \ -) CADPRO - Cadastro de Programas 
» ! Daniel Jerozol iwski 

* ! Fevereiro, 1991 
» I HODULO EDICAO - EDITAR.PRG 
^ + + 

SET TALK OFF 
SET BELL OFF 
USE PROGS INDEX IND 
SET COLOR TO N/«+ 
spaco=SPACE(8«) 
3 «,0 SAY Spaco 
00 WHILE .T. 

SET COLOR TO bi/R 

8 2,2 CLEAR tq 19,77 
a 2,i« CLEAR TO 1^,5$ 

9 1,19 TO 1,50 DOUBLE 

3 3,30 SAY 'Editar Pi-ogramas ' 
opcao=5PACE(23) 

3 8,7 SAY 'Ent''° cors o none do programa que voce deseja 
editar : ' 
9 il.26 GET Opcao 
READ 
IF 0pcao=5PACE(23) 

CLOSE DATABASES 

9 i,i CLEAR TO 19,78 

RETURN 
ENDIF 

SEEK Opcao 
IF EOFO 

3 21,5 SAY 'Prograffla '+TRIM{opcao)+' oao encontrado 

WAIT " 

9 21.5 SAY ' 

LOOP 

ENOIF 

00 UHILE .T. 

9 4,1 CLEAR TO 19,77 

3 5,2 SAY 'Reqistro n'imero: '+STR(RECN0{),5) 

9 7,29 SAY 'Horn !^o Progr^sa' 

3 6,22 TO 9,51 DOUBLE 

9 10,2 TO 19,58 

Ht ipo=t ipo 

Hde5ci=SU8STR(de5c.l,35) 

h«3e5c2=SUBSTRfdesr,3i) 

9 8,26 GET Noine 

9 11.3 SAY 'Nota ( 0-iO ) : ' GET Nota 

3 12,3 SAY 'Tipo : ' GET Mtipo 

9 13.3 SAY 'Mersao : ' GET '.Jersao 

a 14,3 SAY 'Data de aauisicao: '' GET Data 

9 15,3 SAY 'Discos me ocupa ; ' SET Discos 

3 16,5 SAY 'Bytps qiie odipa : ' GET Bytes 

3 17,3 SAY 'Descricao : ' GET Naescl 

3 18,23 GET t1desc2 

SET COLOR TO B/SB 

3 i*,59 CLEAR TO 19,77 

9 11,60 SAY 'TiDDs O'SPonivp's' 

3 13,62 SAY 'U-ijtilitario' 
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8 H,62 SAY 'G-qrafico' 
3 15,62 SAY 'J-jogo' 
a 16,62 SAY 'A-ap5!cat!MD' 
8 17,62 SAY 'S-simiilador' 
3 IB, 62 SAY 'D-adventure' 
3 1^,59 TO 19,77 DOUBLE 
SET COLOR TO W/R 
READ 

fltipo=UPPER(titiPo) 
t!Pc_va]i(lo=[SD3AUJ] 
IF .NOT. (Htipo 5 t ipo.val !!!o) 
a 21.5 SAY 'TiPo InvalJdo !!! ' 
? CHR(7) 
WAIT " 
i 21.5 SAY ' 
LOOP 
ENDIF 
EXIT 
ENDOO 

hde5c=HdEsci+Mcie5c2 
REPLACE De5c WITH iidesc 
REPLACE Tipo WITH MtiPO 
ENDOO 



— + 



-> CADPRO - Cadastro de Progranas 
Daniel Jerozol irask i 
Fevereiro de 1991 
MODULO DE APREaENTACAO - CAOAST.PRG 



D + 

+ 

SET COLOR TO W+/R 

SET TALK Ot^F 

SET DATE ITALIAN 

SET BELL OFF 

CLEAR 

SET COLOR TO W+ZG 

3 3,15 CLEAR TO 7,65 

3 3,15 TO 7,65 OOySLE 

n!sgl=[CADASTftO] 

isg2=[DE PR0GRAMAS3 



!nsg3=£ 1 

■S94=r ] 

i5g5=[PrDgrania desenvo'wido por:] 

fflsg6=E Daniel Jerozol iiaaki] 

1 jfiha=4 

niens_ntimero=i 

00 WHILE t1en5_n'iisero<=6 

nien5-iBacro= 'msg '+STR([»en5_niin*ero,i) 

IF Men5_nij»ero<3 

ien5_cef!tro=(78-LEN(8»Bn5_raacro))/2 

ELSE 

■en5-centro=5 
SET COLOR TO W+/R 

ENOIF 

caractere=l 

DO WHILE Caractere<=LEN(8fflens_ftacro) 

3 1 inha,iiiens„centrQ SAY SUBSTR(8rmen5_n(acro,l,caracte 
re) 

caractere=caracterE+i 

ENDOO 

iBn5_niifflEro=«ef)5_niiiBero+l 

IF i1en5_nijmero<5 
1 inha=linha+2 

ELSE 

1 irha=l inha+l 

ENDIF 
ENDDO 

SET COLOR TO G/R 
3 17, « 
TEXT 

Esse programa foj criaclo para facilitar a nrgani 
zacao 

da sua colecao be programas 
ENOTEXT 
WAIT " 

cadast='PS06S.DBF' 
IF .NOT. FILE(cadast) 

SET COLOR TO W»/R 

3 21,3 SAY 'ERRO FATAL: Cadastro PROGS.OflF nao esta Pre 
sente' 

WAIT " 

SET COLOR TO 

flUIT 
ENDIF 

arq_ind='INO.NDX' 
IF .NOT. FILE(arii_ind) 

USE PROGS 

3 22,3 SAY 'Espere... indexando catJastro' 



• 
• 



MSX e SOFT SUL 



HARDWARES 



Drives DDX 

Megaram disk (256 Kb, 

512 Kb e 766 Kb) 

Impressoras 

Monitores 

Expansorde slots 

Kit transformag&o 2.0e2.0-h 

instalado em 24 horas 

Modem DDX 

ExpansSo de 512 Kb p/ Amiga 

KitDDFAX96p/PC 
Video Games — Nintendo 
eSega 



SOFTS 



Jogos e apllcativos, o maior 
acervo do Brasil, sempre 
com as ultimas novidades. 
PACOTAO JOGOS 
(100 jogos + 5 aplicativos 
+ 12 discos) _ 
MINI PACOTAO 
(50 jogos + 5 discos) 



SOFTS PC e AMIGA 



Dominio publico 
LanQamentos sensacionais 
p/ Amiga e PC 



Todos OS equipamentos 

com selo MSX, tem 
garantia de 12 meses. 




SOFT SUL 



Av. 7de Setembro, 3146 - Loja 20 

Tel. (041) 232-0399 e 232-0453 

CEP 80230 

CURITIBA - PARANA 

Ao solicitar catalogo especiftque seu micro 



IrJ)!i', ON' NONE io TrJ^l,f^)i;|":< 




opcao=UPPER(opcao> 


CLOSE All 




SET COLOR TO y/R 


3 22,3 SAY ' 


' 


3 21.5 SAY ' 


ENQIF 




IF Opcao^^'S ' 


S'"T roi OR "0 




DELETE 


uO HENU 




delei:ao=i 
tNDIF 






* i -) CAOPRO ' Caoastro ce Proqrainas I 


ENDOO 


* i Daniel Jerosol ^f!i5'< ^ 


i 


IF Delecao^l 


* ; -evfeiro, 1991 


1 


3 21,5 Sh'^' 'Espsrs... processanQO. .. ' 


« ; flODULO fiPAOAR i^HOIS'RO - 


APAt3'Ai!=PRG '< 


PACK 

3 2U5 SAY ' ' 

CLOSE DATABASES 


SET TALK OFF 




SET BELL OFF 




S 2,2 Ci ^AR 7(1 i9,7p 


USE PROGS IfyDEX IND 




RFTiJRN 


SET COLOi^ TO H/W+ 




ENDIF 


5Paco=SPACEi80^ 




3 2,2 CLEAR to i'5,7B 


? 0,fi SAY SpacQ 




RETURN 


SET COLOR TO U/R 

3 1.2 CLEAS TO 1^,78 








* ! ~) CAOPRO - Cadastro de Programas 1 


8 i,2 '0 i,7B DOUeLE 




* '. Oaniel JerDsoi -mv.i i 


3 3,3ir SAY 'Apagar Seqistros' 




» 1 Fsvereiro, 1991 1 


ilelecao=0 




» 1 MODULO OE CONSULTA - CONSULT. PSG | 


DO yiilLE J. 

SET COLOR TO U4/R 








00 tJHILE .T. 


a 4,7 C! FAW TO 19,78 




SET COLOR TO N/y+ 


DPCEn-SPACE(23) 




3 «,« SAY SPACE(e0) 


3 8,7 ^t^y 'Entre cora o nofse do 


registro ^>le voce dese.i?, 


RFT COi OR TO W+/i? 


apigar • 




3~ 1,1 CLEAR TO li?',78 


IF deiecao=i 




S 1,1 TO 1.7e DOUBLE 


i 21-3 SAY 'Press 'an.: ENTE-I 


55 nao tem (nais arquivos 


3 3.32 SAY 'CCf^SULTAR CAOASTRO' 


para deletar ' 




USE PROGS INDEX IND 


ENO!^ 




letra-iO!-' 


8 11,26 GET opcao 




letra.f in=' 


READ 




3 5,3 SAY "Entrp com a leti'a micial ■ ' GET Let^'a.ini 


i 21,? BAY ' 

7 




5 31,5 SAY 'Frss5ione Enter para ver todo o cadastre' 
READ 


IF 0pcao^SPACE(23) 




letra_ini=UPPER(letra_!ni) 


EXIT 




3 21,5 SAY ' 


ENDIF 




IF Let-a_:ni = '^ \ 


SEEK Opcao 




ietra_in '^'A ' 


I'- EOFi) 




letra-F'.n^'Z' 


3 21,5 SAY 'Proqrasa '+TRIh 


opcao)+' nso encontr5.3o' 


EXIF 


i^AIT " 




ENOIF 


3 21,5 SAY ' 




3 7,3 SAY 'Entre rem a letra ^mal : ' GET Letra.Fin 
J 21,5 SAY 'Pre^sione Enter para vet- somente a letra in 


LOOP 




i c 1 a 1 ' 


ENDIF 




READ 


a 4,2 CLEAR TO 19.78 




letra.fin^UPPERdetra.tin) 


3 5,2 SAY ''•^iPist'^Q nuinefo; '+ 


;tR':rECN0(),-5) 


3 21,5 SAY ' 


3 7.29 SAY 'NofflP 'jn ^fiiqrania^ 






a 6.12 TO 9,51 DOUBLE 




IF Letra_f!n=' ' 


3 8,26 SAY Nose 




letra^-f ii^letra.in i 


3 lfi,3 TO 19,58 




ENDIF 


8 il,3 SAY 'Nora ( O-lO ) : 


'+STR(nota,2) 


IF ASC(let-3_!ni))ASCnEtra_fin) 


a 12,3 SAY 'Tipo : 


'+tipc. 


3 21,5 SAY 'Letras invalidas' 


9 13,3 SAY yersw : 


'^versao 


WAIT " 


5 14,3 SAY 'Data de aauisirayi 


'+uTOl '-cata) 


3 21.5 SAY ' ' 


a 15,5 SAY 'Discos -i^;5 ocjpa : 


'■^SfB'.,aUcos,2) 


LOOP 


3 it.? SAY '8yt?3 gye ociPa : 


'+S'i'i'^(t!ytes,7) 


ENDIF 


Hde5ci=SUBSTR(desrJ IS) 




" EXIT 


hdP5c2^3UeSTR(desc,3i) 




ENDDO 


3 17,3 SAY 'Oescncao ^ 


'+HQ!;SCi 


DO iiiJHiLE .T. 


5 IS, 22 SAY Hdpsc2 




t ipo_ESC= ' 


SET COLOR TO B/BG 




3 9,3 SAY 'Entre cos o tiPO ce deseia 'jpf - ' GE~ Tipo, 


5 1^,59 CLEAR TO 19,77 




esc 


3 i{,6fi SAf 'IPOS L)!5Pontve!s 




3 2i,3 SAY '5e nao ".^^p'^ ver al"-...fii t'r^o 'rii sspec:?,],' 


S 13,62 SAY 'U-'itilitario' 




3 22.3 SAY 'pre^cione Enter.' 


3 14,62 SA^ 'S-qratico' 




SET COLOR TO B/eS 


3 15,62 SAY ^-J-jogo' 




3 7,49 Clear TO 15,73 


3 16,62 SAY 'A-aPi fcat iMO ' 




3 8,5« SAY 'TipoE O^sponlvels' 


3 17,62 SAY ;S-si!rMiiador' 




2 9,5* SAY 'U-iitilitar/o' 


3 13,62 SAY 'D-aaventure ' 




3 10, 5« SAY 'B-grafico' 


4 1^,59 TQ 19,77 i^.ouBLE 




3 11, 5§ SAY 'J-jogo' 


SET COLOR TO W^f/R 




3 12,50 SAY 'A-aplicat vo' 


opcao=' 




S 13,50 l:;AY 'S-siiTiiilador ' 


3 21,5 SAY 'Apaqo esse proqraws 


(S/H) "^ ' GET Opcao 


3 1^-59 SAY 'O-adverture' 


READ 







52 MICRO SISTEMAS 



a ;,d9 JO 15,73 v(>'^'^! E 


", 


?£' COLOR TO W+/R 


quant !dade=''ijant idade-t'l 


READ 


IF Q'iant idade=3 


S 2i,3 CLtAR TO 22,78 


quant idadp=0 


tioo.esc^iJPPER(tiPo.esc) 


yAIi 'Press'one (^yalquer tecia para contmuar' 


t ipo-val ido^L iJGJASO'j 


7 


I*-" .WOT. (tipo._esc 4 tiPO-valido) 


2 


i 21,3 BAY '-[00 inva'iido !!!' 


9 


■^ CHR(7) 


ENDIF 


KAIT " 


ENDIF 


i 2i,3 SAY ' 


IF ASC(N0'^E))ASC(]etr3_fin; 


LOOP , 


EXIT 


ENOVF 


ENDIF 


EXIT 


SKIP 


ENDDO 


EN90G 


3 7,4? CLEAR fO 15,73 


IF EKi5te=0 


Q-ats.esc^' / / ' 


? ' )))) Nenhijffl registro listado 


(5ata.e5c=CT0D>data_psc) 


{<{{' 


3 li,3 SAY 'E^tf"s cok a data a partir da aual voce' 


■> 


S 12,3 SAY 'qiier que 5ej3 realizada a consuUa: ' 6ET Data 


■'! 


_e5c 


ENDIF 


a 21,3 SAY 'Pressione ENTtR para cons'iUar seih especificac 


IF Suantsdade=« 


ao de data ' 


WAIT 'PrEssione quaUuer tecla para fetornar ao ibefiu ' 


READ 


ENDIF 


3 21,3 SAT ' 


00 TELA 


' 


RETUF.'i 


GO rop 




SET COLOR "0 




CLEAR 




IF Letra.in lO ' 




SET EXACT OFF 


5, + ^ 


SEEK Letra-^nt 


* i -) CADPRO - Caoast'-o de Programas I 


SET EXACT ON 


» ! Daniel Jeronnl irnsk i I 


ENOIF 


* 1 i^evereiro, 1991 ' 


3 23,0 


« 1 HODULO DE C0N3TRUCA0 OA 'ElA - TELA.PRG 1 


quant idade=0 
e;riste=« 




SET COLOR TO U^/R 


DO liHILE ,NOT, EOF() 


CLEAR 


IF i't'oa Psc=' ' -OR. v'aa cGf^TlPO^ .AHO, fiSCfNOHEVt-zi! 


3 1.0 TO 23,79 DOUBLE 


SC(letra_ini] .AND, ASC{N0^£)<^A3Cngtra_f'inJ .AND. ( DTOC 5 20 i to 7^ TgDr.ijgLF 1 


(DATA))nT0C<d3ta-e5c) .OR. DTOCfdsta.s-^c)- ' ■■ - ') 


3 20.33 SAY ' Iie--iaqef9 ' 


e;<!Stc=i 


3 20, § SAY CHR(234) 


? 'Nome: '+N0(1E-^ ' Uersao" 'HtFRSAO 


i 29,79 SAY CHR(185) 


? 'Tip-:*; '+TIPO+' 


SET COlOR TO N/y+ 


Nota : '+STR(fiOTA,2) 


3 24,8 SAY SFACE^Sg) 


? ^Oiscos: '4STR(0ISC0S,2)+' 


S 0,0 SAY SPACE(8e) 


Butes : '+STf (BYTES,?) 


3 24,28 SAY ' Cada-ritrD ■-■? Procraiiias' 


? '03t^ Cp an^J'-^lc^n; '■^DTOC(DA"^A^ 


^^T rOLOR TO ul-t/R 


■ 'DescriraoJ '+OFSr 


BETHRN n 



TEMOS TUDO PARA SEU MSX E PC!!! l! 



MSX 

DRIVES DDX 3 1/2 e 5 1/4 

MEGARAM DISK (256,512 e 768 Kb) DDX 

MODEM DDX 

KIT DE TRANSFORMACAO PARA 2.0 e 2.0 + (Plus) 

DDX 

MEMORY MAPPER DDX 

IMPRESSORAS 

MONITORES 

SOFTS: 

JOGOS E APLICATIVOS; MAIOR ACERVO DO BRA- 
SIL COM SOFTS ORIGINAIS E DE DOMlNIO PUBLI- 
CO. SEMPRE COM AS MAIS RECENTES NOVIDA- 
DES. 

PROMOCAO DE DRIVES 

Na compra de urn DRIVE DDX, urn SUPER DESCONTO 
e voce ainda recebe inteiramente gratis 10 jogos de MSX. 



TV ADAPTER 2.0 + 
PLACA PC 



iGksan I 

THOUSE I 



SOFTHOUSE 
Av. Marechal Floriano, 
1.220 — CEP 16.700 
GUARARAPES — SP 
Fone: (0186)61-2687 



PC 

PC XT/ AT 

IMPRESSORAS 80 e 132 col. 

WINCHESTER 

MODEM 

MOUSE 

SCANER 

MONITORES CGA/VGA 

ESTABILIZADORES DE VOLTAGEM 

PLACA DDFAX (Seu PC vira FAX) 



SOLICITE NOSSO CATALOGO COMPLETO 



CARTAS 



Sos Aos Leitores 



n Sou usuario de um MSX-Expert 1.1 
com drive de 5 1/4'. Possuo cerca de 250 
jogos e estou com a seguinte duvida: 

O jogo 'Chase H.Q: segundo creio. foi 
gravado originalmente em fita, e quern 
passou para o disco nao conseguiu fazer 
executar a segunda e as demais fases do 
jogo. Acho que o jogo carrega tais fases, 
mas nao executa pois espera um sinal em 
fita. Suspeito que o mesmo ocorra com 
jogo 'Indiana Jones M'. 

Quern tiver resolvido esse problema ou 
souber explica-lo, por ■fevor entre em con- 
tato comigo. 
Luis Rafael Ribeiro 
R. Gon^alves Ledo, 602 
96800 - Santa Cruz do Sul - RS 

□ Possuo um equipamento PC-XT 12 Mhz 
com 64 K de memoria e um monitor Sam- 
sung (letras amarelas). Gostaha de saber 
se filtro polarizador circular 'CP univer- 
sal ir para monitores monocromaticos, 
fabricado pela Polaroid, pode ser utili- 
zado tambem em monitores de cor ama- 
rela. 

Mario Souza Furioso 
SQS 409 bl. N, ap. 102-E 
70258 - Brasilia - DF 



D Possuia um micro CP-400, e agora re- 
solvi migrar para um MSX 1 com drive. Nas 
minhas horas vagas filmo em VHS, e os 
motives da escoiha do MSX, foram os softs 
graficos existentes para esta linha, mas in- 
felizmente moro no interior do Nordeste e 
quase nao temos lojas especializadas em 
softs. 

Pego informagoes de como posso 
transformar o MSX num gerador de carac- 
teres, e se ha algum acessorio passfvel de 
acoplar a ele para produzir o efeito de le- 
genda sobre a imagem. 
Marcus Vinicius Rodrigues 
R. Domlngos Ramos,10 
55900 - Golana - PE 



D Ha um ano ingressei no 'mundo' da In- 
formatics e tenho ouvido algumas pes- 
soas dizerem que a linguagem Cobol esta 
ultrapassada. Como sou calouro na area, 
gostaria de um parecer sobre a cttada lin- 
guagem. Tambem gostaria de algumas in- 
formagoes sobre curses de Cobol aqui no 
RS ou por correspondencia. 
Josue Santiago 
R. Duque de Caxias, 587 
93600 - Estancia Veiha - RS 



Ms Agradece 



CiiUBE Do Usuario 



n Recentemente criamos o Rashes Club 
de Software para usuarios do MSX. Tra- 
balhamos com drive 5 1/4' e 3 1/2' e dis- 
tribuimos um jornal. Estamos fazendo um 
concurso, no qual os tres primeiros ven- 
cedores ganharao programas gratis. Para 
se associar nao e precisopagar absoluta- 
mente nada. 

Flashes Club de Softwares 
R. Joaquim Tavora, 50 
84600 - Unlao da Vltoria - PR 



n Ja ha algum tempo formamos um 
clube e atualmente estamos langando um 
boletim mensal para os gamemaniacos da 
linha de microcomputadores MSX. O bo- 
letim possui langamentos, novidades, di- 
cas, jogos, enfim tudo que os donos de 
Hotbits e Experts precisam para estar sem- 
pre 'por dentro'. 

MSX - Overdose 
Caixa Postal 265 
86975 - Mandaguari - PR 



D Venho me congratular com a diregao 
da revista Micro' Sistemas pelo excelente 
trabalho realizado nas edigoes da revista, 
visando a levar aos leitores materias de 
real interesse, divulgando nao so o que 
diz respeito a produtos, mas tambem a 
literatura tecnica da area, e ainda pro- 
movendo o intercambio entre seus leito- 
res. Parabens. 
Ernesto Carneiro 
R. Abassal, 305/403 
04570 - Sao Paulo - SP 

D Gostaria de agradecer a Micro Siste- 
mas por ter publicado minha carta na 
edigao 101. Isto prova a seriedade 
desta revista, pois gragas a ela recebi 
dezenas de cartas, dos lugares mais 
longinquos possTveis. 
Sandro Mancinl 
R. Francisco Sa, 13/Cob. 
22080 - Rio de Janeiro - RJ 

□ Gostaria de parabenizar esta revista 

pelo tremendo' apoio que esta dando 

aos seus leitores, usuarios de varios 

modelos diferentes de micros. Valeu! 

Fabio Jose Soares de Moura 

R. Roque Gonzales, 89 

08450 - Guaianases - Sao Paulo - SP 

D Gostaria de parabenizar todos que fa- 
zem de Micro Sistemas a melhor revista 
de Informatica em geral do Brasil. 

Parabens tambem pela materia Abra 
Janelas em seus programa^ (MS 106) es- 
crito em Turbo Pascal. Escrevo progra- 
mas em Basic. Pascal, dBase etc, mas 
sempre faltava algo para meus progra- 
mas ficarem mais 'sofisticados' se assim 
posso dizer Gostei muito por ser um pro- 
grama curto e facil de acompanhar. Fago 
votos que MS continue oferecendo sem- 
pre materias uteis e de excelente quali- 
dade aos seus leitores. 
Mauricio de Oliveira Junior 
R. Bento Mascarenhas, 49 
18045 - Sorocaba - SP 



TAll COMUNICftCAO LI6UE MAIS EMOCAO (011) 579-3131 



SOFTS PARA 
PC E AMIGA 

SOLICITE CATALOGO GRATIS 
CAIXA POSTAL 43842-CEP 84198 



XT- AT 286 E 386 
IMPRESSORAS " 

nONITORES COLORIDOS 
HD 38/48/86 



fiUENIDA JABAQUARA, 1.598 - SALA 88 - CEP 84846 - AO LADO DA ESTACAO SAUDE DO METRO - SAO PAULO /SP 



PLACA FAX -ODFAX 

DBTU - PC NA TV 

HOUSES E JOVSTIGXS 

PLACA DE SON ESTEREO PC 


iUDE DO METRO • 


- SAO PAULO /SP 



MUNDO UNIX E MAIOR DO QUE VOCE PENSA 

UniForum Brasil' 91 

26 A 28DE NOVEMBRO 1991 ■ HOTEL HILTON ■ SAO PAULO 

KEY NOTE 

Mr. Larry Michels 

Presidente e Fundador da SCO - Santa Cruz Operation, 
sera o principal Palestrante do evento. 

PALESTRAS 

• Interfaces Graficas e Portabilidade de Aplicagoes: Open Look e OSF/Motif. 

• Gerenciamento de Sistemas em Ambientes Distribuidos. 

• TCP/IP e OSI: O melhor de dois padroes. 

• UNIX em Aplicagoes Multimi'dia. 

• Aplicagoes Distribuidas: X Windows System. 

• Estrategia de Implementa^ao de Sistemas Abertos. 

• Desafios dos Sistemas Abertos para Aplica^oes OLTP. 
•Seguranga dos sistemas UNIX. 

• UNIX como servidor MS-DOS e Windows. 

• Planejamento de capacidade em UNIX. 

• Bancos de Dados distribuidos. 

• Solugoes em Comunicagao de Dados. 

• UNIX e Redes de PC's 

• Implementagao de Solugoes Cliente/Servidor. 

• Estudos de Casos. 

EXPOSICAO 

Os principals aplicativos para a tecnologia UNIX estarao expostos por seus 
principals distribuldores no subsolo e no 2? andar do Hilton. 

INSCREVA-SE JA! 
3 DIAS QUE VALERAO POR ANOS 



FICHA DE INSCRigAO 



NOME: 

EMPRESA: 
CARGO: _ 



ENDERECO: 

BAIRRO: CIDADE; CEP: UF: 

TELEFONE: FAX: 

VALOR INSCRIQAO 

( ) US$ 240.00 Associado ao UniForum Brasil 

{ ) US$ 300.00 Nao Associado ao UniForum Brasil 

Anexar cheque nominal a Fenasoft Feiras Comerciais Ltda., cambio do dolar turismo pelo valor 

correspondente em cruzeiros da data do pagamento. Enviar para; 

Fenasoft Feiras Comerciais Ltda. 

Rua Hungria, 674 - Jardim Paulistano - 01455 - Sao Paulo - SP 

Tel (Oil) 814-4119 - Fax (Oil) 212-0381 

At. - Sr. Carlos Soares / Sra. Elvira Westermann 



CARTAS 



Leiior Responde 



n Respondendo a carta de Joao Paulo 
Reis Ramos, informo que para imprimir 
graficos com a Lady 80 ou qualquer ou- 
tra impressora grafica, basta dar, em Ap- 
plesoft, apos o comando PR 1. um co- 
mando PRINT CHR$(9)'G'; dependendo da 
sua placa de impressora. experimente tro- 
car o 'G' por 'GR' ou 'GRD' para fazer va- 
riar o tamanho da impressao, Este co- 
mando imprime a tela de alta resolugao. 
Em Basic, nao e possivel imprimir a tela 
de baixa resolugao, a nao ser com retinas 
apropriadas. 

Ja em ajuda ao Leitor Ricardo Padoin 
Nene, envio este pequeno programinha, de 
minha autoria, que permite imprimir tex- 
tos acentuados usando um TK 3000 He, 
uma impressora (Lady 80 ou qualquer ou- 
tra) e o editor de textos MAGIC WINDOW. 
Entre no monitor com CALL -151 e digite 
OS seguintes codigos: 

300: 8d 51 03 a9 00 8d 04 9d 
308: a9 03 8d 05 9d ad 51 03 
310: 8e 50 03 a2 00 dd 52 03 
318: fO Ob e8 eO Oc dO f6 ae 
320: 50 03 4c bd 9e a9 9e 8d 
328: 05 9d a9 bd 8d 04 9d bd 
330: 6a 03 20 ed fd a9 88 20 
338: ed fd 89 00 8d 04 9d a9 
340: 03 8d 05 9d bd 5e 03 ae 
348: 50 03 4c bd 9e ad 51 03 
350: 00 00 a3 a6 cO db dc dd 
358: df eo fb fd fc fe 6f 65 
360: 61 61 61 63 61 65 69 6f 
368: 75 6f 7e 5e 27 7e 5e 2c 
370: 60 27 27 5e 27 27 

Grave o programa com BSAVE 
DR!VERMW.A$300,LS80. Estando no Ma- 
gic Window, va para o FILER MENU, esco- 
Iha DOS COMAND. digite BRUN DRIVER e 
tecle RESET. Ftide imprimir seu texto acen- 
tuado normalmente. 

NOTA: programa usa Back Space para 
imprimir os acentos que nao funcionem 
em Basic. Estou a disposigao dos leltores 
para esclarecer duvidas. 



Joao Paulo Holanda Cavalcanti de An- 

drade 

Quadra L, numero 3, Jardim America III, 

01 ho d'Agua 

65065 - Sao Luis - MA 

D Com rela?ao a carta de Ricardo Y. Shi- 
mamoto, queremos informar ao mesmo 
que o MSX possui placa aceleradora e que 
a mesma e fabricada pela Tacto informa- 
tica, deixando o MSX com um clock de 7.5 
Mhz, ou seja, um clock infinitamente ma- 
jor que o clock do PC. 

E gostariamos de acrescentar que o 
MSX 3.0 e infinitamente superior a micros 
como Amiga e PC, pois tambem suporta 
uma unidade de disco rigido e possui 32 
bits, tornando-se o computador mais mo- 
derno da linha. 
Space Soft Ltda. 
Av. Almirante Cochrane, 287 
11040 - Santos - SP 

D Caro Marcio Vilas Boas Caetano: voce 
nao disse em sua carta qual micro usa, 
mas deve ser um Hotbit. pois seu pro- 
blema e igualao que eu tive com o refe- 
rido programa. 

Acontece que o programa da MS 70 foi 
feito para rodar no Expert: para rodar em 
Hotbit voce deve mudar as linhas 40 e 
100. Procure no finalzinho da linha 40, a 
sequencia F7, 02. 2D, C3, C9 e mude o nu- 
mero 02 para 03, que se refere a um call, 
onde: 

- F7 = RST30 ou CALL30 

- 02 = SLOT em que se encontra a rotina 

- 2DC3 = enderego a chamar = C320H 
■ C9 = RET = retorno da rotina 

Seu problema se encontra justamente 
no SLOT que, no case do Hotbit, e o nu- 
mero 03. Na linha numero 100 voce deve 
aumentar o numero da soma para 19976, 
a fim de que nao seja acusado erro de di- 
gitagao. 

Fernando Lx)pes de Oliveira 
R. Vol. Benjamim Capusso, 369 
12900 - Braganga Paulista - SP 



PROCURA-SE AUTOR 



□ Sou leitor constante da revista Micro 
Sistemas e sempre encontro materias 
que me interessam. No entanto, no nu- 
mero 105 houve uma que me chamou es- 
pecialmente a atengao: 'Conversao de Ar- 
quivos entre PC, MSX e Spectrum', de 
autoria de Vicente Alves Guimaraes 
Filho. 

Possuo um PC-AT 386 8/25 Mhz e 
um CP-400 Color II e tenho necessi- 
dade de passar alguns dos arquivos 
criados no CP-400 para o PC. Acredito, 
ainda, que o Sr Vicente poderia me 
ajudar na elaboragao de um programa 
que lesse o disquete em que se en- 
contram os dados do outro micro de 
forma a poder passS-los para o atual 
PC. 

Seria possivel o autor entrar em con- 
tato comigo? 
Rotildo bongo 
R.Getulio Vargas, 1635 
Caixa Postal 88 
87580 - Alto Piquiri - PR 

D Ao digitar os programas da materia 
Abra Janelas em sous programas', de au- 
toria de l^onardo Opitz e publicada na MS 
106, nao consegui que o programa fi- 
zesse as moldurasde cada janeia. Exceto 
e^ta dificuldade o programa funciona sem 
problemas. Gostarta que o autor me orien- 
tasse sobre o que esta ocorrendo em mi- 
nha digitagao. 
Eugeniano Brito Martins 
R. Teodomiro de Castro, 4132 
60335 - Fortaleza - CE 

n Com relagao ^ materia 'Sistema de 
Conta Corrente' publicada na MS 96, gos- 
taria que seu autor, Williams Carlos de Al- 
buquerque me fornecesse a estrutura dos 
arquivos CONTA e CHECPRE e tambem in- 
formasse como se roda o programa. Agra- 
dego desde ja. 
Ruy Soares Dias 
R. 12 de Outubro 55/202 
35174 - Centro Timoteo ■ MG 



Eomputoy 



TUDO PARA MSX, PC, TELEX E FAX 



• Drivers 

• Disketes 

• Computadores 



• Modens 

• Impressoras 

• Formulcinos 



• Mega-ran 

• Monitores 

• Bobinas 



• Joysticks 

• Jogos 

• Aplicativos 



Computoy Microinformatica Rua Dias da Cruz, 143 Sala 606 — Meier — RJ (prbximo ao 
Imperator) Cep.: 20720 — Tel.: (021) 249-8865 



TransformagOes para 2.0 e 2.0 + 
Cartuchos para Video-Games 
Fazemos montagens, instalagao 
e manutengao de seu aparelho. 



LANQAMENTO: 

Programa; 

Numerologia Cabalfstica para PC 

(0 mais completo do mercado) 



Dislfibuidor MS> Soft 
P— p>chwno« para todo Brasll 



CARTAS 



Painel 



n Gostaria de trocar programas para IBM 
PC; principalmente jogos e editores grafi- 
cos. Pego que os interessados mandem ca- 
talogo de softwares. 
Schubert Krolow Peter 
R. Nllo Peganha, 212 
96020 - Pelotas - RS 

D Sou usuarlo de um micro PC XT e gos- 
taria de entrar em contato com outros 
usuarios para troca de informagoes e sha- 
reware (responderei a todas as cartas), 
Ricardo Carellos da Silva Bernardes 
Caixa Postal 20 
36950 - Ipanema - MG 

□ Possuo um Amiga 500 e gostaria de en- 
trar em contato com usuarios da mesma 
linha para troca de programas Cogos e apli- 
cativos) e tudo o que se refere ao Amiga. 
Responderei a todas as cartas. 
Silvio Luis Evangellsta 
Av. Dr. Jambeiro Costa, 881 
13610 - Leme - SP 



n Estou negociando meu microcomputa- 
dor TK2000 II juntamente com muitas fi- 
tas de Jogos para TK2000 e TK85, livros 
e monitor monocromatico MM-12 da Gra- 
diente. 

Estou interessado tambem em vender 
ou trocar meu monitor monocromatico 
TB200 {da Tabra) e minha placa CGA, pois 
pretendo adquirir uma VGA. 
Jefferson Guimaraes Rangel 
R. Teodoro da Sllva 890/305 
20560 - Rio de Janeiro - RJ 

□ Possuo um microcomputador Sharp 
Hotbit com drive de 5 1/4' e gostaria de en- 
trar em contato com usuarios do mesmo 
tipo de equipamento para troca de infor- 
magoes. 
Jose Estevam 
R. Sao Benedlto, 314 
13360 - Capivari - SP 

D Possuo um Expert 1.0, drive DDX 5 1/4' 
e impresora Lady 80 e gostaria de trocar 



programas com usuarios da linha MSX que 
tambem possuam drive 5 1/4'. 
Emerson Renato Cavallarl 
R. Fioravante Sicchleri, 790 
14160 - Sertaozinho - SP 

ill Sou agronomo e gostaria de manter 
contato com usuarios de computadores do 
tipo IBM PC para troca de programas {em 
qualquer linguagem) relacionados com 
agropecuaria, ou assuntos afins. Respondo 
a todas as cartas. 
Dagoberto Costa 
Caixa Postal 52910 
60151 - Fortaleza - CE 

n Em julho passado comprei um Solution 
16. Pego aos usuarios desse micro, mais 
tarimbados do que eu para me ajudarem 
trocando ideias e me enviando programas 
e jogos, 
Miguel Sobral 
Caixa Postal 99209 
25805 - Tres Rios - RJ 






MANUTENQAO 

REALIZADA POR 

ENGENHEIROS 

ESPECIALIZADOS 

EM 

MICROS PC XT/AT 

DRIVES 

DISCO RIGIDO 

IMPRESSORAS 

E MONITORES 

CONSULTE 
PARA CONTRATOS 
DE MANUTENQAO 




COM PROVE!!! 



FORNECEMOS BACK-UP! 



DEFEITOS EM MICROCOMPUTADORES: 

Erros de logica aleatohos, 
perda de memoria, 
destruigao do software, 
faiha de componentes... 

UMA SOLUQAO PERFEITA: 
MICROLOGICA, o melhor caminho para 
eliminar defeitos em microcomputadores 
e periferlcos. 



^SeagatP ELGIN 



(^elebra 



ny&'Otec 



lJ3 



vlilCROLOGICK 

Engenharia de Sislemas Uda. Consuilona de Harctware 



RUA CAMERINO, 128 - 11° ANDAR - CENTRO - RIO 
(PROXIMO A EST. DO METRO PRES. VARGAS) 

TEL.:(021)263-9925* 263-9408 



LIVROS 



IVIANUALDO 

QUAITRO 

VOLUME 

R 









S 



^ -Mary 

Campbell 



1 



MANUAL DO QUATTRO PRO - 2 

Volumes/segunda edigao 
Ma/y Campbell 
EBRAS Editors Brasileira 
328 paginas 

Composts 12 capitulos, distribuidos em 
dois volumes, a obra orienta o leitor passo- 
-a-passo, e ensina como controlar o QUAT- 
TRO PRO 2.0. 

volume 1 tras os fundamentos do am- 
biente do programa e inclui: tecnicas de im- 
pressAo de relatorios; procedimentos basi- 
cos de entrada de dados; manipulagao de 
cepulas multiplas na area de trabalho, alem 
de fungoes matematicas, planilhas multidi- 
mensionais e graficos em 2D e 3D. 

O volume 2 apresenta topicos avanga- 
dos do ambiente, com manipulagao de ar- 
quivo. gerenciamento de dados, macros 
avangados e automagao de tarefas. De- 
monsra a instalagao do sistema e, ainda, a 
analise e personalizagao do programa. 

livro tern ainda uma referenda cruzada 
QUATTRO X Lotus 1-2-3, com direito a dis- 
cussao das mudangas da versao 1.0 para 
PRO 2.0 e com os comandos alterados. 
Complementando a abordagem, a autora 
descreve todos os comandos e apresenta 
urn Guia de Comandos do Menu. 

GUIA DO PROGRAMADOR RARA AS PLACAS 
EGA e VGA 

Richard F. Ferraro 
Editora Ciencta Modema 
712 paginas 

A obra e uma referenda para recursos e 
fungoes de padroes graficos, proporcio- 
nando ao leitor informagoes consistentes e 
necessaria experiencia na program agaodas 
places EGA e VGA. Uma combinagao de guia 
e tutorial, o livro descreve detalhadamente 



a arquitetura destas placas, alem de ofere- 
cer dicas sobre tecnicas de programagao. 
Comegando por uma visao geral dos recur- 
sos da EGA e da VGA e por uma introdugao 
aos prindpios da computagao grafica, mos- 
tra ao leitor como usar, de maneira eficiente, 
a maioria das fungoes das placas. Aborda 
tambem topicos como: 

- Registros da EGA e da VGA. 

- Processamento alfanumerico. 
■ Bios da EGA e da VGA. 

- Cotrole da palette de cores. 

- Desenho de linhas e vetores, 

A parte final da obra e um extenso con- 
junto de exemplos de programagao nas lin- 
guagens C e Assembler, que aborda segoes 
de textos, fontes, graficos e cores dos adap- 
tadores. Esses programas compoem a base 
de um poderoso conjunto de ferramentas. 
O livro apresentas-se, ainda, como uma 
fonte de informagoes para programadores 
que desejam otimizar as capacidades gra- 
ficas de seus computadores para desenvol- 
ver eficientes aplicagoes prof iss ion ais. 

CODIGO DE BARRAS: Da teoria a pratica 
Mauro Luiz Zyngier e Fabio Grossmann 

Editora Nobel 
104 paginas 

O codigo de barras, eficiente sistema de 
gestae de estoques com vasta aplicagao no 
comercio. industria e na area de servigos, 
vem ganhando nos ultimos anos um im- 
pulse significative no Brasil, e a presente 
obra fornece nogoes basicas do que e e de 
como funciona o codigo de barras; apre- 
senta suas alicagoes; compara o codiigo de 
barras nos Estados Unidos e no Brasil; ex- 
plica as vantagens de se colocar o codigo 
de barras em produtos; mostra os aspec- 
tos tecnicos da colocagao; exemplifica o 
controle de qualidade do codigo; demons- 
tra OS erros mais comuns e apresenta o 
equipamento de leitura. 

Ilustrado com exemplos baseados na ex- 
periencia dos autores nesta atividade, o li- 
vro envoca os principals pontes do sistema 
de codigo de barras, como estrutura, fun- 
cionamento e aplicagoes, tendo como ob- 
jetivo fornecer informagoes uteis aos pro- 
fissionais que ja utilizam o sistema, bem 
como aqueles que pretendem se familiari- 
zar com o assunto. 

NOVO GUIA PETER NORTON PARA PROGRA- 
MADORES DO IBM-PC & PS/2 
Peter Norton & Richard Wilton 
Editora Campus 
484 paginas 

livro e dirigido nao apenas a progra- 
madores, mas a qualquer pessoa que pre- 
cise entender detalhes tecnicos e prindpios 
de funcionamento de programas no PC. 



Agora, totalmente atualizado e incluindo 
a linha PS/2, este novo guia apresenta va- 
liosas discussoes sobre fiiosofia de progra- 
magao. Seus conselhos, metodos de pro- 
gramagao e tecnicas ajudarao a criar 
programas simples e portateis em todas as 
maquinas IBM atuais e, talvez, ate futuras. 

Aprofundando-se em capftulos especifi- 
cos oferece informagoes atuallzadas sobre 
software da ROM: video, disco e teclado 
basico; clocks, temporizadores e geragao de 
som, bases do DOS; interrupgoes; fungoes, 
e grande quantidade de 'dicas* para acabar 
com as dificuldades. 

PROGRAMANDO EM LOTUS 1-2-3 versbes 
2 e 2.2 

Quihno Ponton Swensson 

Livros Tecnicos e Cientfficos Editora 

197 paginas 

Para tornar esta segunda edigao o mais 
atuaiizada possivel, foi atualizada como base 
a versao 2, a mais utilizada no momento. 
Seus comandos de Macro permanecem 
compatTveis com versoes posteriores. 

Nele sao apontadas as diferengas com 
as outras versoes de forma a apoiar o leitor 
seja qual for a versao que o mesmo use. 
Nesse sentido e apresentado o Apendice C 
que comenta as novidades traduzidas pela 
versao 2.2. 

Alem disso foram ainda incluidos mais 
dois apendices: 

- Apendice A: apresenta um resume das 
opgoes do Lotus ate o terceiro nivel de co- 
mandos. 

- Apendice B: apresenta comandos avanga- 
dos, analogos a outras linguagens de pro- 
gramagao e disponiveis nas versoes 2 e su- 
periores. 

O MELHOR DO WORD FOR WINDOWS 

Richard Swadley 
EBRAS Editora Brasileira 
415 paginas 

Elaborado especialmente para que se ini- 
cia ou ja trabaiha em processamento de 
texto, o livro tem recursos que facilitam o 
aprendizado das fungoes e facetas por tras 
da interfac'e intuitiva do Windows 3. Mostra 
como integrar as fungoes e as tecnicas do 
Word mats avangado da Microsoft. A obra 
instrumenta o leitor para: 

■ Formatar, criar e editar qualquer tipo de do- 
cumentagao; 

- Otimizar as tabelas e matematica do Word; 

- Dominar todos os menus e comandos; 

■ Personalizar o Word com macros; 

- Combinar texto, graficos e dados. 

Atraves das 'dicas* apresentadas, as ne- 
cessidades de processamento de texto, po- 
dem ser trabalhadas num alto nivel de exi- 
gencia. 



58 MICRO SISTEMAS 



Transforme sen MSX 
em uma estagdo grafica,,. 




Tela digitalizada (foto era monitor RGB). 



Placa eletrflnica KIT 2+. 



KIT 2+ 



• 19.268 cores • 256 KBytes RAM do usu^rio • 1 28 KBytes VRAM (vfdeo) • 96 KBytes ROM-BASIC • TURBO-BASIC 

residente • 80 colunas de texto (mesmo pela TV) • Rel6gio/Calenddrio (mantido por bateria) • Movimentagao fina das telas 

gmficas na horizontal e vertical • Resolugao de 512 x 424 16 cores de 512 



• • • 



e tambetn em um. Video-Gam.e 
de alta resolugdo 



oo SCORE 00I4600 Ml ooi^eoo 




Jogo SPACE-MANBOW (MEGAROM). 




Placa e Cartucho II MEGARAM. 



II-MEGARAM 



Expansao com 256 KBytes destinada a rodar os jogos MEGAROM gravados em disquetes. • Funclona em qualquer 
micro da Linha MSX. • Os jogos MEGAROM possuem alta defini^ao grafica e sonora. 

Todos OS produtos tem garantia de 1 ano. 
KIT 2.0 e KIT 2+ sao marcas reglstradas da ACVS Eletronica Ltda. 

ACVS Eletronica Ltda. 

Au. Paulista, 2001 - ConJ. 912 - CEP 0131 1 - Sao Paulo - SP - Tel: (Oil) 289-7694 



